Текстовой фаил, Задача по текстовому файлу Опции

[eldar219]

Создать текстовой фаил и написать в нем 5 одинаковых фраз

[marwell]

var f:text;
    s:string;
    i:integer;
begin
Assign(f,'123.txt');
Rewrite(f);
writeln('vvedite frasu: '); // сделал ввод фразы пользователем
readln(s);
for i:=1 to 5 do
 begin
 Writeln(f,s);
 end;
readln(s);
close(f);
end.

[eldar219]

а почему цикл не повторяеться 5 ряз автоматически?

[marwell]

а почему цикл не повторяеться 5 ряз автоматически?

как не повторяется???

Добавлено через 7 мин.
у меня появилось смутное сомнение, а знаешь ли ты вообще что такое цикл...

[Гость]

как не повторяется???

Добавлено через 7 мин.
у меня появилось смутное сомнение, а знаешь ли ты вообще что такое цикл...

Когда я нажимаю в паскале на Run эта фраза раз не выводится(

[marwell]

Когда я нажимаю в паскале на Run эта фраза раз не выводится(

writeln('vvedite frasu: '); // сделал ввод фразы пользователем

это не выводится?

[Гость]

writeln('vvedite frasu: '); // сделал ввод фразы пользователем

это не выводится?

Выводитсяно лишь 1 раз,а мне нужно чтобы 5 раз вывелось автоматически