From 64b85ad265fdfa207f33092e01ec57aed239083a Mon Sep 17 00:00:00 2001
From: Ivan Bondarev <ibond84@googlemail.com>
Date: Sun, 24 Apr 2022 11:28:33 +0200
Subject: [PATCH] #2658

---
 TestSuite/exe/input.txt   | 1 -
 TestSuite/stringelem5.pas | 1 +
 2 files changed, 1 insertion(+), 1 deletion(-)
 delete mode 100644 TestSuite/exe/input.txt

diff --git a/TestSuite/exe/input.txt b/TestSuite/exe/input.txt
deleted file mode 100644
index 7d3738628..000000000
--- a/TestSuite/exe/input.txt
+++ /dev/null
@@ -1 +0,0 @@
-45
\ No newline at end of file
diff --git a/TestSuite/stringelem5.pas b/TestSuite/stringelem5.pas
index 3734c1d94..013ac8794 100644
--- a/TestSuite/stringelem5.pas
+++ b/TestSuite/stringelem5.pas
@@ -4,6 +4,7 @@
 begin
   a := '1';
   b := '1';
+  WriteAllText('input.txt','45');
   assign(input,'input.txt');
   readln(a[1], b[1]);
   assert(a[1] = '4');