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

[BelialL]

Облазил весь форум ничего подобного не нашел мне нужно ввесть 12 целых чисел в консоль и чтоб они сохранились в текстовом файле в 3 строки по 4 цифры Подскажите пожалуйста какой командой задать это количество строк !!

[Пепел Феникса]

writeln(F,Copy(s,1,4));
writeln(F,Copy(s,5,4));
writeln(F,Copy(s,9,4));

[BelialL]

Спасибо за ответ! Но применить этот код у меня не получается вот что у меня выходит

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var t: textfile;

begin
  assignfile(t,'file3.txt');
  rewrite (t);
  writeln(t,Copy(s,1,4));
  writeln(t,copy(s,5,4));
  writeln(t,copy(s,9,4));
  closefile (t);
end.

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

[Stilet]

Но применить этот код у меня не получается

Переменная s не описана.
но... ИМХО этот код вообше ерундовый.
Я бы писал так:

  var t: textfile;
 a: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;
  end;
  closefile (t);
end.

[BelialL]

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

  var t: textfile;
 a: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;
  end;
  closefile (t);
end.

Может я чтото неправильно делаю числа в файл не записываются!

[Z1000000]

Вот готовый проект

[BelialL]

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

Вот готовый проект

Cпасибо большое! Я продолжил делать задачу то есть чтобы он из этого файла вывел в консоль данные, что то не выходит посмотрите плз где я ошибся?

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);
  begin
  reset (t);
  read (t,b);
  closefile(t);
  writeln (b);
  readln;
  end;
end.

и еще можно плз коментарии к этому коду тоесть какая чясть кода за что отвечает ?

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

ап ап ап ап ап!

ответе кто нибудь пожалуйста!!

[Utkin]

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

и еще можно плз коментарии к этому коду тоесть какая чясть кода за что отвечает ?

assignfile(t,'file3.txt');

Связываем t с файлом

 rewrite (t);

Готовим t для записи

for i:=1 to 12 do begin

Начало цикла от 1 до 12 для переменно i

readln(a);

Читаем строку в переменную а

write(t,a,' ');

Заносим в файл, связанный с переменной t значение переменной а и пробел (одной строкой)

if i mod 4=0 then writeln(t);

Если I делится на 4 без остатка то вставим пустую строку

Примерно таким образом.

[BelialL]

Спасибо огромное ! так более понятно
Еще посмотрите плз почему у меня данные из файла в консоль не выводятся!

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);
  begin
    reset(t);
    read(t, b);
    closefile(t);
    writeln(b);
    readln;
  end;
end.

вроде все правильно

оформил код нужным тэгом... //from Serge

[Serge_Bliznykov]

1) используйте для оформления кода не тэг [QUОTE] (цитата)
а тэг [CОDE] (код) - кнопка с решёточкой #

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