Неполучается рассортировать текст и числа. Помогите, пожалуйста.

[kliocka]

Мне надо введя в одну строку текст и числа, при нажатие кнопки делает две строки, в одной строке текст, в др. числа. Начал делать,но чего-то невиходит ничего.
В чём проблема пожалуйста подскажите,срочно надо. Спасибо.

procedure TForm2.Button3Click(Sender: TObject);
var i,s:integer;
begin
s:=0 ;
h:=edit3.Text;
n:=length(h);
for i:=1 to n do
if (a[i]<'9') and (a[i]>'0') then
begin
n1:=n1+1;
s[n1]=a[i];
label3.Caption:='cisla' +inttostr( s[n1] )+'povtor ';
end;
else
if (a[i]<'a')and(a[i]>'z') then
begin
n2:=n2+1;
s[n2]=a[i];
label4.Caption:='bukvi ' +inttostr( s[n2] )+' povtor';
end;
end;

[Stilet]

Чет мне твой код малопонятен, посему привожу свой:
Он срабатывает когда ты в Эдит чет вводиш, в заголовок выводя две разделенные строки. Я их там длинным пробелом разделил чтоб отличить.

procedure TForm1.Edit1Change(Sender: TObject);
var a,b,s:string; i:integer;
begin
//********* FOR ******************
s:=Edit1.Text;
a:='';b:='';
for i :=1  to length(s) do
begin
 if (s[i] in ['0'..'9']) then a:=a+s[i] else
  b:=b+s[i];
 if s[i]=' ' then begin a:=a+s[i];b:=b+s[i];end;
end;
//******* END FOR ****************{}
caption:=a+'              '+b;
end;

т.е. в a и b тут разделены цифры от букв

[kliocka]

Stilet большое спасибо тебе за ответ, ты Гений. Я проста пока новечок в этом деле, спасибо.А то я подумал, что мне уже не поможет.
Stilet the best!

[НЕ_АЙС]

Боже как просто стать гением в глазах новичка))