Найти в строке слова, которые начинаются и оканчиваются одной и той же буквой

uses crt;
const rz=['_',':',';',',',' ','.','?','!'];{разделители слов}
var s,s1:string;
    i,k,n:byte;
    f:boolean;
begin
clrscr;
writeln('Введите строку из слов:');
readln(s);
i:=1;
f:=false;
writeln('Слова с одинаковой первой и последней буквой:');
while i<=length(s) do
if not(s[i] in rz)and ((i=1)or(s[i-1] in rz)) then{если буква, а перед ней разделитель, или она первая}
 begin
  k:=i;s1:='';
  while not(s[k] in rz)and(k<=length(s))do {пока не разделитель и не конец строки}
   begin
    s1:=s1+s[k];{составляем слово}
    k:=k+1;{идем вперед}
   end;
  if s1[1]=s1[length(s1)] then {если первая=последней}
   begin
    write(s1,' ');
    f:=true;
   end ;
 i:=i+length(s1);{перепрыгиваем}
 end
else i:=i+1;
if not f then write('Слов с одинаковой первой и последней буквами нет');
writeln;
readln
end.