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

[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 5:40

[Client]

что программа писалась,она бы и читалась

Что это значит?

[Гость]

Что это значит?

Ну тоесть она работает. тоесть автоматически пишется.. но нужно чтобы помимо этого еще и читалась на автомате..
как-то так.

[Гость]

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

[Client]

while not eof(f) do begin
  readln(f,s);
  writeln(s);
end;

Это?

Сообщение отредактировано: Client - 14.05.2010 3:25

[Гость]

да скорее всего..спс

[marwell]

весьма похоже Текстовой фаил

[Гость]

хех) да похоже) лол) надо было форум порыскать..хотя там ничего нового нету(