Дана символьная строка. Найти слова , начинающиеся и заканчивающиеся на одну и ту же букву. Слова разделены ОДНИМ пробелом. язык 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.