Дана строка символов.найти количество слов,у которых первый последний символы между собой

uses crt;
var s,sl: string;
i,k: integer;
begin
writeln('Введите строку');
readln(s);
s:=s+' ';
sl:='';
for i:=1 to length(s) do
if s[i]<>' ' then sl:=sl+s[i]
else
begin
if (sl[1]=sl[length(sl)]) and (length(sl)<>0) then inc(k);
sl:='';
end;
writeln('Количество слов, начинающихся и заканчивающихся одной буквой = ',k);
readkey
end.