[ART]

Код:

...
var
 line: string;
begin
...
 AssignFile(filename, input);
 Reset(input);
 while not eof(input) do begin
  Readln(line);
  Showmessage(line);
 end;
 CloseFile(input);
...
end;