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');