From c00a0f2c85c671f859bbd9ffb4a0873a3944ba2b Mon Sep 17 00:00:00 2001
From: Ivan Bondarev <ibond84@googlemail.com>
Date: Sun, 14 Apr 2024 11:10:22 +0200
Subject: [PATCH] fix in read

---
 TestSuite/read1.pas                                 | 7 +++++++
 TestSuite/read1.txt                                 | 1 +
 TreeConverter/TreeConversion/syntax_tree_visitor.cs | 4 ++--
 3 files changed, 10 insertions(+), 2 deletions(-)
 create mode 100644 TestSuite/read1.pas
 create mode 100644 TestSuite/read1.txt

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
             {