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

[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);
 writeln(s);
 end;
readln(s);
close(f);
end.

[Romtek]

Предлагаю дружно помочь человеку завалить предмет. Иначе он его не выучит.

[marwell]

Предлагаю дружно помочь человеку завалить предмет. Иначе он его не выучит.

согласен, писать курсовую и не иметь даже элементарного представления о паскале - это как минимум неправильно