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.