Тестирование программы

[Reisch_Helena]

Вот само задание:"Разработана программа, которая считывает из файла и выводит на экран элементы массива."

Дан исходный код:

Program Example2; 
const n=5; 
Var a: Array[1..n] Of Integer; 
x, i : Integer; 
f: text;

begin
assign(f,’test.txt’);
reset(f)
i:=0;
while not Eof(f) do begin
readln(f, a[i]);
i:=i+1;
end;
 For i:=1 to n Do writeln (a[i]);
End.

В чем ещё ошибки кода? тест номер 2, и часть теста 1- не выполняются

Program Example;
const n=5;
Var a: Array[1..n] Of Integer;
x, i,k : Integer;
f: text;

begin
assign(f,'test.txt');
reset(f);
i:=1;
k:=0;
while not Eof(f) do
begin
readln(f, a[i]);
i:=i+1;
k:=k+1;
end;
 For i:=1 to k Do
 writeln (a[i]);
 close(f);
End.

Сами наборы тестов:
1) значения в файле-14839
выводит на экран-14839
4,8,3,9,0-неверно

2)значения в файле- 34576912
выводит на экран-34576

[Kohaka]

2)значения в файле- 34576912
выводит на экран-34576
вы сами указали длину массива от 1 до 5. Вообще такого плана задачи лучше решать через строки. в строках и диапазон больше и не придется лишние циклы создавать
это к первому

 Program Z;
 
  Var a: array[1..100] of integer;
  n, i:integer;
  f:text;

  begin
  assign(f, 'n.txt');
  reset(f);
  i:=1;
  n:=0;
  while not Eof(f) do begin
  read(f, a[i]);
 
  i:=i+1; 
  n:=n+1;
  For i:=1 to n do writeln (a[i]);
   end;
  end.