Паскаль. Файл. - Pascal

Помогите с задачей: Дан текстовый файл содержащий строки. Вывести на экран самую длинную строку.

Листинг программы

max:=0;s1:='';
while not eof(f) do
 begin
  readln(f,s);
  if length(s)>max then
    begin
      max:=length(s);
      s1:=s;
    end;
 end;

Объяснение кода листинга программы

Задается максимальная длина строки max и пустая строка s1.
Открывается файл f для чтения.
В цикле while с условием not eof(f) происходит чтение строк из файла f и сохранение их в переменную s.
Если длина текущей строки s больше максимальной длины max, то обновляется значение max и присваивается значение текущей строки s1.
Цикл while выполняется до тех пор, пока не будет достигнут конец файла f.