Задача по Delphi!

[BelialL]

Помогите доделать задачку:
Задание . Составить программу, которая принимает с клавиатуры 12 целых чисел и пишет их в текстовый файл по 4 штуки в
строку (т.е. в три строки). Затем читает их из файла и выводит на экран двумя способами: в одну строку и в две строки по
6 штук.
Немогу сделать чтоб читал из файла в 1 и 2 строки

uses
  SysUtils;
var t: textfile;
  a, b: integer;
  i: integer;
begin
  assignfile(t, 'file3.txt');
  rewrite(t);
  for i := 1 to 12 do begin
    readln(a); write(t, a, ' ');
    if i mod 4 = 0 then writeln(t);
  end;
  closefile(t);
  reset(t);
  for i:=1 to 12 do
  begin
        read(t,b);
        writeln (b);
     end;
    end;
  closefile(t);
  readln;
end.

[L_M]

Можно просто читать 2 раза и выводить 1 строку а потом 2

uses
  SysUtils;
var t: textfile;
  a, b: integer;
  i: integer;
begin
  assignfile(t, 'file3.txt');
  rewrite(t);
  for i := 1 to 12 do begin
    readln(a); write(t, a, ' ');
    if i mod 4 = 0 then writeln(t);
  end;
  closefile(t);
  reset(t);
  for i:=1 to 12 do
  begin
        read(t,b);
        write(b);  //в 1 строку
     end;
    end;
  closefile(t);
  reset(t);
  for i:=1 to 12 do
  begin
        read(t,b);
        if i mod 6=0 then
            writeln (b, ' ')
        else
            write(b,' ');
     end;
    end;
  closefile(t);
  readln;
end.

или просто запоминать введенную последовательность в массив

uses
  SysUtils;
var t: textfile;
  a, b: integer;
  i: integer;
  mas:Array[1..12] of integer;
begin
  assignfile(t, 'file3.txt');
  rewrite(t);
  for i := 1 to 12 do begin
    readln(a); write(t, a, ' ');
    if i mod 4 = 0 then writeln(t);
  end;
  closefile(t);
  reset(t);
  for i:=1 to 12 do
  begin
        read(t,a[i]);
     end;
    end;
  closefile(t);
  for i:=1 to 12 do
      Write(a[i],' ');
  for i:=1 to 12 do begin
    if i mod 6=0 then
       WriteLn;
    Write(a[i],' ');
  end;
  readln;
end.

[BelialL]

спасибо большое очень помогли