Задача по текстовому файлу., Необходима ваша помощь. Опции

[Menelay]

Добрый день ребята.
У меня задача (Создать текстовой файл и написать в него 5 одинаковых фраз.)
После долгих стараний у меня получилась вот такая программа.

var f:text;
    s:string;
    i:integer;
begin
Assign(f,'new.txt');
Rewrite(f);
writeln('frazka: ');
readln(s);
for i:=1 to 5 do
 begin
 Writeln(f,s);
 end;
readln(s);
close(f);
end

Показал учителю. Учитель сказал что все верно,за исключением того что, ему нужно чтобы помимо того что программа писалась,она бы и читалась.. он мне наглядко показал как это выглядет..но я ничерта не понял..
единственное что помню в отрывках.. он использовал в конце проги что-то вроде if not EOF тыры - пыры..

Огромная просьба помочь мне разобраться с этой проблемой.
Заранее спасибо.

Сообщение отредактировано: Lapp - 14.05.2010 1:40

[Гость]

While not EOF нужно впихнуть под конец..незнаю как(