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

Question

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

Answer 1

const sn=[' ','.',',','!','?'];
 
var s,slovo:string;
    i:integer;
 
begin
  readln(s);
  slovo:='';
  if not (s[length(s)] in sn) then
    s:=s+' ';
  for i:=1 to length(s) do begin
    if not (s[i] in sn) then
      slovo:=slovo+s[i]
    else begin
      if slovo[1]=slovo[length(slovo)] then
        writeln(slovo);
      slovo:='';
    end;
  end;
  readln
end.