Дан текстовый файл определить самую длинную и короткую строку

Var s,s1,s2:string;
    i,j,k,max,min:integer;
    f,g:text;
Begin
    Assign(f,'a.txt');Reset(f);
    readln(f,s1);{Считываем первую строку из файла}
    max:=Length(s1);{Делаем max длину первой строки}
    min:=Length(s1);{Делаем min длину первой строки}
    s2:=s1;{Запоминаем первую строку}
    j:=1;{Запоминаем номер строки max}
    k:=1;{Запоминаем номер строки min}
    i:=1;{Счетчик кол-во строк}
    While not Eof(f) do 
     Begin
      inc(i);
      readln(f,s);
      if Length(s)>max then 
       Begin
        max:=Length(s);
        j:=i;
        s1:=s;
       End;
      if Length(s)<min then 
       Begin
        min:=Length(s);
        k:=i;
        s2:=s;
       End;
     End;
    Reset(f);
    Assign(g,'b.txt');Rewrite(g);
    i:=0;{Обнуляем счетчик}
    While not Eof(f) do
     Begin
      inc(i);
      readln(f,s);
      if i=j then writeln(g,s2) {Если номер текущей строки соподает с номером строки max то записываем сюда min строку}
       else if i=k then writeln(g,s1) {Аналогично что и c max}
        else writeln(g,s); {Иначе записываем то что считали из файла f}
     End;
    Close(f);Close(g);
    writeln('Самая длинная строка: ',s1);
    writeln('Самая короткая строка: ',s2);
    writeln('Формирование окончено!');
    readln;
End.