Разбор строки...

[CodeExpert]

Добрый день уважаемые форумчане. У меня есть задание к лабе моей в институт, вообщем там вскрывается файл, далее считывается текст и производятся операции некоторые с текстом, ну это я и сам сделаю, есть одна вещь в них которая меня вводит в ступор. Не могу банально разобраться строку и проверить если есть в встречающемся слове цифры то взять его в скобки, собственно слово это часть строки ограниченная пробелами, к примеру:
я по5шел в2 магазин за пече3ньем
должно превратиться в :
я (по5шел) (в2) магазин за (пече3ньем)
уже раза три пробовал разными способами, ничего нормально не получается, поставьте пожалуйста на путь истинный...как это сделать?(

[russian-stalker]

Как вариант:

var
 s,o,t:string;
 i:integer;
 f:boolean;
begin
 readln(s);
 while length(s)<>0 do
 begin
  f:=false;
  if pos(' ',s)<>0 then
  begin
   t:=copy(s,1,pos(' ',s)-1);
   delete(s,1,pos(' ',s));
  end else
  begin
   t:=copy(s,1,length(s));
   delete(s,1,length(s));
  end;
  for i:=1 to length(t) do
   if t[i] in ['0'..'9'] then
   begin
    o:=o+'('+t+') ';
    f:=true;
    break;
   end;
   if not f then
   o:=o+t+' ';
 end;
  writeln(o);
  readln;
end.

[CodeExpert]

Спасиб большое, а то мозг уже не соображает) П.с. С праздником всех)

[sorokin88]

Как ещё один вариант

var
s,x: string;
wb,i:integer;
isnum:boolean;

begin
  readln(s);
  x:=s+' ';
  s:='';
  isnum:=false;
  wb:=1;
  for i:=1 to length(x) do begin
    if (x[i]=' ') then begin
      if (isnum) then s:=s+'('+copy(x,wb,i-wb)+')'
      else s:=s+copy(x,wb,i-wb);
      if (i<>length(x)) then s:=s+' ';
      isnum:=false;
      wb:=i+1;
    end;
    if (ord(x[i])>=$30) and (ord(x[i])<=$39) then isnum:=true;
  end;
  writeln(s);
end.