работа с файлом

[Андрей.12]

uses crt;
var max:string;
s:array[1..5]of string;
i,n1:integer;
f:file;
begin
clrscr;
assign(f,'d:\test.txt');
reset(f);
for i:=1 to 5 do
readln(f,s[i]);
for i:=1 to 5 do  begin
n1:=length(s[i]);
if n1>4 then
max:=s[i];
end;
write(max);
close(f);
readln;
end.

нужно прочитать строки и вывести строку большую 4

[p51x]

Так вы проверите только 5 строк.

while(!Eof(f)) do begin
  ReadLn(f, s);
  if(Length(s) > 5) then break;
end;