Разработать программу, которая в заданной строке находит и выводит на экран слово с наименьшим количеством букв. Слова разделены пробелами (одним или несколькими) — Pascal(Паскаль)

uses crt;
var st, buf, min:string;
i, min_l:integer;
f:boolean;
 
begin
    write('Строка -> ');
    readln(st);
    min_l:=999;
    min:='';
    buf:=''; 
    for i:=1 to length(st) do
    begin
        if st[i]<>' ' then
        begin
            buf := buf + st[i];
            f:=true;
        end else begin
            if f then
            begin
                if (length(buf) < min_l) then
                begin
                    min := buf;
                    min_l := length(buf);
                end;
                f := false;
            end;
            buf := '';
        end;
    end;
    if buf<>'' then
    begin
      if (length(buf) < min_l) then
      begin
          min := buf;
          min_l := length(buf);
      end;
        buf:='';
    end;
    writeln(min);
    readln;
end.