Составить программу, считающую число слов, заканчивающихся и начинающихся одной и той же буквой, в строке, введенной пользователем — Pascal(Паскаль)

uses crt;
var k:integer;
    st,buf:string;
begin
 clrscr;
 write('-> ');
 readln(st);
 k:=0;
 repeat
  if (st[1]=' ') or (length(st)=1) then while st[1]=' ' do delete(st,1,1)
  else
  begin
   while (st[1]<>' ') and (length(st)>1) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
  if upcase(buf[1])=upcase(buf[length(buf)]) then inc(k);
  buf:='';
  end;
 until (length(st)=1) and (length(buf)=0);
 writeln(k);
 readln;
end.