var f:text;
    s:string;
...
AssignFile(f,'file.txt');
Reset(f);
while not EOF(f) do begin
    readln(s);
end;
CloseFile(f);