Прочитать и вывести на экран файл

[protrence]

Здравствуйте, задали сделать такое: "Есть текстовый файл больше 2х строк (у меня 8 строк), надо прочесть и вывести на экран".
Самое главное надо сделать всеми способами которые есть. (использовать row, eof (myFile) типо этого)...
Да ещё бы описание как работает программа!

[Hacker19_90]

1)

assign (f, 'input.txt');
reset (f);
while (not(eof(f))) do
begin
    readln (f,s);
    writeln (s);
end;

где f:TEXT, s: string;

[protrence]

Hacker19_90, что-то не получается... требует ":" и "пишет идентификатор не верный"
Если можно, подробнее плз =)

[Hacker19_90]

Код покажите!

[protrence]

Hacker19_90, точь в точь что вы написали....

[Hacker19_90]

о_о!!!Вы хоть program написали? Я привёл кусок кода (т.е. код не весь)!!!

[protrence]

да, писал, uses crt тоже вписал... это я знаю, выдаёт файл, но быстро же закрывает его

[Fon_Blut]

Readln напиши перед End.

[protrence]

Fon_Blut, спасибо, но появилась другая проблема...
в файле 5 строк, в программе выводит 17.

[Fon_Blut]

Придется писать полный код:

var 
   F: text;
   S: string;

begin
  assign(f, 'c:\a.txt');
  reset(f);
  
  while not eof(f) do
  begin
    ReadLn(f, s);
    WriteLn(s);
  end;

  close(f);
  ReadLn
end.

Если после этого будет выводить много строк, значит просто вы не очищаете экран и считаете прошлый вывод, наверняка...