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

program string_12;

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);
  readln;

end.