Определить номера строк файла, содержащих максимальное и минимальное количество символов - Pascal

var
    f : Text;
    max, min, maxID, minID, i : Byte;
    s : String;
begin
    Assign(f, 'f.txt'); Reset(f);
    ReadLn(f, s); i := 1;
    max := Length(s); min := max; maxID := i; minID := i;
    WriteLn(s);
    while Not(Eof(f)) do
    begin
        ReadLn(f, s); Inc(i);
        if (max < Length(s))
        then
        begin
            max := Length(s);
            maxID := i;
        end;
        if (min > Length(s))
        then
        begin
            min := Length(s);
            minID := i;
        end;
        WriteLn(s);
    end;
    Close(f);
    WriteLn('maxID : ', maxID);
    WriteLn('minID : ', minID);
end.