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

uses crt;
var str,str1:string;
n,kol:integer;
begin
clrscr;
read (str);
n:=length(str);
if str[n]<>' ' then str:=str+' ';
while str[1]=' ' do
delete(str,1,1);
while length(str)<>0 do begin
n:=pos(' ',str);
str1:=copy(str,1,n-1);
if str1[1]=str1[n-1] then inc(kol);
delete(str,1,n);
end;
writeln(kol);
readkey;
end.