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

uses crt;
var st, buf:string;
i,k:integer;
f:boolean;
 
begin
    write('-> ');
    readln(st);
    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)=1 then inc(k);
                f := false;
            end;
            buf := '';
        end;
    end;
    if buf<>'' then
    begin
        if length(buf)=1 then inc(k);
        buf:='';
    end;
    writeln(k);
    readln;
end.