Дана символьная строка, заканчивается точкой. Найти длину самого длинного и самого короткого слова — Pascal(Паскаль)

{Дана символьная строка, заканчивается точкой.
Найти длину самого длинного и самого короткого слова}

program bosc;

uses Crt;
var s,max,min,a,sl:string;
    i:integer;
begin ClrScr;write('введите строку:');
      readln(a);s:=a;max:='';min:='';
      for i:=1 to length(s) do
        begin
            if s[i]=' ' then
              begin if max<sl then max:=sl;
                    delete(s,1,length(sl)-i+1);
                    sl:=''
              end
                         else sl:=sl+s[i];
        end;
      sl:='';i:=1;
      repeat sl:=sl+a[i];
             i:=i+1
      until s[i]=' ';
      for i:=pos(' ',a) to length(a) do
        begin
            if a[i]=' ' then
              begin if sl<min then min:=sl;
                    delete(a,pos(' ',a),length(sl)-i+1);
                    sl:=''
              end
                         else sl:=sl+a[i];
        end;

        writeln(max,' ',min);

end.