Delphi7

[Анастасья]

Пусть дан текст из 80 литер.Напечатать сначала все цифры,входящие в него,а затем все остальные литеры,сохраняя при этом взаимное расположение литер в каждой из этих двух групп.


(По типу массив из символов)
Прошу помочь составить программу на Delphi7 //

[wm_leviathan]

прошу помочь дать хоть какие то наработки. а то как то жирно нахаляву.

[dosha]

var
  i:Integer;
  s:string;
begin
for i:=0 to Length(Memo1.Lines[0])-1 do
begin
s:=Copy(Memo1.Lines[0],i,1);
try
if (StrToInt(s)>=0) and (StrToInt(s)<=9) then
Memo2.Lines.Add(s);
except
Memo3.Lines.Add(s);
end;
end;
end;

кидаешь на форму три мемо и кнопку, вставку в мемо организуй сама