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

1.123456789-номер телефона

2.мама помыла посуду-ткстовая информация

3.какой нибудь рисунок

4.музыка

5.кино 

все истина т.к.если пишется "или" то достаточно чтобы что-то одно было правдой,тогда и все истинно.