Pascal. Перевод строки в файле

01.01.2001

Pascal. Перевод строки в файле.
Всем доброго времени суток.
Прошу помощи, не знаю как сделать перевод строки в файле.
Например:
...
assign(f,'c:\test.txt');
rewrite(f);
c:='123123123123'
write(f,c);
close(f);
end.

Программа создает (если такового нету) вайл test.txt в C:\ и записывает в него "123123123123".
Как сделать так, чтобы программа записала в файл следующим образом:
"123
123
123
123"
?
Или, например, через цикл, если дано только c:='123', и нужно чтобы программа 5 раз подряд в столбик написала в файле "123"?
Подскажите, пожалуйста :)
Спасибо.

  • var f:text; c:string;
    begin
    assign(f,'d:\test.txt');
    rewrite(f);
    c:='123';
    write(f,c);
    writeln(f);
    write(f,c);
    close(f);
    end.
  • попробуй так
    i:=0;
    assign(f,'c:\test.txt');
    rewrite(f);
    c:='123';
    repeat
    begin
    write(f,c);
    i:=i+1;
    end until i=4;
    close(f);
    end.
  • Может использовать процедуру writeln?
  • Вот так:
    c:='123' # 10 '123' # 10 '123' # 10 '123' ;

Вас заинтересует