Найти слова, начинающиеся и заканчивающиеся на одну и ту же букву — Pascal(Паскаль)

program bc;

var sl,s:string; i:integer;
begin write('введите строку:'); readln(s);
      sl:='';i:=1;s:=s+'.';
      repeat
      {for i:=1 to length(s) do}
      if (s[i]=' ') or (s[i]=',') or (s[i]=';') or (s[i]='.') or (s[i]='!') or (s[i]='?')
         then begin if sl[1]=sl[length(sl)] then writeln(sl);
                    sl:='';
              end
         else sl:=sl+s[i];
      i:=i+1
      until i>length(s);
end.