Нахождение цифрового слова

[Nekala]

Добрый день. Задание такое:Сформировать новую строку, в которую включить только 4-символьные слова, с заменой "А" на "О". Найти первое цифровое слово и возвести его значение в куб

Написала код, работает, но немного не так. Он цифровое слово находит, если оно 4х символьное( Как сделать чтобы он находил первое цифровое слово из любого набора чисел

procedure TForm1.Button1Click(Sender: TObject);
var s,s1,s2:string;
    i,a,k:integer;
begin
s:=Memo1.Text;
s2:='';
while pos(' ',s)>0 do
 begin
  s1:=copy(s,1,pos(' ',s)-1);
  if length(s1)=4 then s2:=s2+s1+' ';
  delete(s,1,pos(' ',s));
 end;
if length(s)=4 then s2:=s2+s
else delete(s2,length(s2),1);
if s2='' then
 begin
  Memo1.Lines.Add(В строке нет 4-х символьных слов');
  exit
 end;
for i:=1 to length(s2) do
if s2[i] in ['A','a','А;','а'] then s2[i]:='O';
Memo1.Lines.Add('Замена буквы А на О');
Memo1.Lines.Add(s2);
s2:=' '+s2;
i:=2;
s1:='';
while(i<length(s2))and(s1='') do
if (s2[i] in ['0'..'9'])and(s2[i-1]=' ') then
 begin
  val(copy(s2,i,4),a,k);
  if k=0 then s1:=copy(s2,i,4)
  else i:=i+4;
 end
else i:=i+1; 
if s1='' then Memo1.Lines.Add('Числовых слов нет')
else Memo1.Lines.Add(Первое числовое слово='+s1+
                     ' его куб='+inttostr(a*a*a));
 
 
end;
end.

[Stilet]

Делфи? Опля.

with TStringList.Create do begin
 DelimitedText:=Memo1.Lines.Delimitedtext;
 for i:=Count-1 downto begin
  if Length(Strings[i])<>4 then Delete(i) else begin
   if TryStrToInt(n,Strings[i]) and ((n>999)and(n<10000)) then Strings[i]:=IntToStr(n*n) else
   Strings[i]:=StringReplace(Strings[i],'O','A',[rfreplaceall])
  end;
 end;
 Memo1.Lines.Text:=Text;
 free;
end;

Годится в качестве идеи?