Чтение массива из файла

assign(input,'./input.txt'); assign(output,'./output.txt'); 
reset(input); rewrite(output);
readln(n);
for i:=1 to n do 
read(a[i]);

    ReadLn(input, n); //читаем пятёрку в первой строке
    ReadLn(input); //читаем вхолостую вторую строку
    for i := 1 to n do
    begin
        Read(input, a[i]); //читаем пять чисел из третьей строки
        WriteLn(a[i]);
    end;

begin
  assign(input, './input.txt'); assign(output, './output.txt'); 
  reset(input); rewrite(output);
  readln(n);
  for i := 1 to n do 
  begin
    read(a[i]);
  end;
  for i := 1 to n do // Не читает
    read(b[i]);
end.

begin
    Assign(input, 'input.txt'); Reset(input);
    ReadLn(input, n); //читаем пятёрку в первой строке
    for i := 1 to n do
        Read(input, a[i]); //читаем пять чисел из второй строки
    for i := 1 to n do
        Read(input, b[i]); //читаем пять чисел из третьей строки
    Close(input);
end.

var
    a, b : Array[1..100] Of Integer;
    input : Text;
    i, n : Byte;
begin
    Assign(input, 'input.txt'); Reset(input);
    ReadLn(input, n); //читаем n в первой строке
    for i := 1 to n do
    begin
        Read(input, a[i]); //читаем n чисел из второй строки
        Write(a[i]:4);
    end;
    WriteLn;
    for i := 1 to n do
    begin
        Read(input, b[i]); //читаем n чисел из третьей строки
        Write(b[i]:4);
    end;
    Close(input);
end.

Read(a[i]); //ожидает программа ввод из консоли
Read(input, a[i]); //из файла