Дана символьная строка. Найти слова , начинающиеся и заканчивающиеся на одну и ту же
букву. Слова разделены ОДНИМ пробелом.
язык Pascal.

var s,sw: string;      i,j,bst: integer;begin    s:='строка для решения арба еле реестр';     bst:=1;  sw:='';  write('строка для поиска - ');      writeln(s);    for i:=1 to length(s) do    begin      if (Ord(s[i])=32) then      begin         if (s[bst]=s[i-1]) then         begin             for j:=bst to i-1 do sw:=sw+s[j];                      writeln('найдено слово - ',sw);             sw:='';            end;         bst:=i+1;         end;     end;   if (s[bst]=s[length(s)]) then   begin      for i:=bst to length(s) do sw:=sw+s[i];          writeln('найдено слово - ',sw);    end;end.