в строке подсчитать количество слов которые одинаково начинаются и заканчиваются!? Опции

[PORTUGAL]

Здравствуйте! Сейчас решаю задачи по паскалю и застрял вот на чем: во введенной строке нужно подсчитать количество слов которые одинаково начинаются и заканчиваются, как это реализовать?

[PORTUGAL]

Вот как я решил:

Код

var st,sl:string;
    i,n,beg,kol:byte;
BEGIN
write('Vvedite stroku: ');
readln(st);
beg:=1;
for i:= 1 to length(st) do
  begin
   if (st[i]=' ') or ((st[i]='.'))
   then
    begin
     sl:=copy(st,beg,i-beg);
     if sl[1]=sl[length(sl)]
     then inc(kol);
     beg:=i+1;
    end;
end;
writeln('Kolichestvo slov: ' ,kol);
readln;
end.

Нормально?