Как задать количество строк Delphi

[BelialL]

Сообщение от Serge_Bliznykov

1)
2) при записи в файл у Вас есть цикл.
а при выводе где он?!

а как это сделать? что то я совсем запутался

[Serge_Bliznykov]

var t: textfile;
  a, b: integer;
  i: integer;
begin
  assignfile(t, 'file3.txt');
(* // Закомментировал, чтобы не вбивать при тестировании
   //         каждый раз 12 чисел!!!!
 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
    if Not Eof(t) then begin
        read(t, b);
        writeln(b);
    end;    
  end;
  closefile(t);
  readln;
end.

[BelialL]

спасибо большое! дальше сам попробую разобраться!!