Текстовый файл. Отыскать самую длинную и самую короткую строку

uses crt;
var f: text;
    s,smax,smin: string;
    dmax,dmin: byte;
begin
assign(f,'C:\in.txt');
reset(f);
dmax:=0; dmin:=255;
while not (eof(f)) do
      begin
      readln(f,s);
      if length(s)>dmax then
         begin
         dmax:=length(s); smax:=s;
         end;
      if length(s)<dmin then
         begin
         dmin:=length(s); smin:=s;
         end;
      end;
close(f);
writeln('Самая длинная  строка длиной в ',dmax,':');
writeln(smax);
writeln('Самая короткая строка длиной в ',dmin,':');
writeln(smin);
readln;
end.

Var f:text;
    i,n,min,max:integer;
    s,s1,s2:string;
Begin
    min:=256;max:=0;
    Assign(f,'E:\q.txt');Rewrite(f);
    Writeln('Введите кол-во строк для ввода ');readln(n);
    For i:=1 to n do
     Begin
      write('Введите ',i,'-ю строку ');readln(s);
      writeln(f,s);
     End;
    Close(f); 
    Assign(f,'E:\q.txt');Reset(f); 
    While not Eof(f) do Begin
     readln(f,s);
     if Length(s)>max then Begin max:=Length(s);s1:=s;End;
     if min>Length(s) then Begin min:=Length(s);s2:=s;End;
    End;
    writeln('Самая длинная строка: ',s1,' Её длина: ',max);
    writeln('Самая короткая строка: ',s2,' Её длина: ',min);
    Close(f);
    End.