diff --git a/TestSuite/read1.pas b/TestSuite/read1.pas
new file mode 100644
index 000000000..9729b7bd5
--- /dev/null
+++ b/TestSuite/read1.pas
@@ -0,0 +1,7 @@
+var
+  read: integer;
+begin
+  assign(input, 'read1.txt');
+  readln(read);
+  assert(read = 45);
+end.
\ No newline at end of file
diff --git a/TestSuite/read1.txt b/TestSuite/read1.txt
new file mode 100644
index 000000000..7d3738628
--- /dev/null
+++ b/TestSuite/read1.txt
@@ -0,0 +1 @@
+45
\ No newline at end of file
diff --git a/TreeConverter/TreeConversion/syntax_tree_visitor.cs b/TreeConverter/TreeConversion/syntax_tree_visitor.cs
index 9d64c853e..14ae6a009 100644
--- a/TreeConverter/TreeConversion/syntax_tree_visitor.cs
+++ b/TreeConverter/TreeConversion/syntax_tree_visitor.cs
@@ -557,8 +557,8 @@ namespace PascalABCCompiler.TreeConverter
         {
             if (!from_pabc_dll)
             {
-                SystemLibrary.SystemLibInitializer.read_procedure = new SystemLibrary.UnitDefinitionItem(unit, compiler_string_consts.read_procedure_name);
-                SystemLibrary.SystemLibInitializer.readln_procedure = new SystemLibrary.UnitDefinitionItem(unit, compiler_string_consts.readln_procedure_name);
+                //SystemLibrary.SystemLibInitializer.read_procedure = new SystemLibrary.UnitDefinitionItem(unit, compiler_string_consts.read_procedure_name);
+                //SystemLibrary.SystemLibInitializer.readln_procedure = new SystemLibrary.UnitDefinitionItem(unit, compiler_string_consts.readln_procedure_name);
             }
             else
             {