Выбрать все числа из строки

[Jene4ka]

Здравствуйте!
Помогите,пожалуйста, найти ошибку.
Задача: дана строка с числами,разделенными пробелами. Нужно выбрать все числа и поместить их в массив. Вот мой код:
m-строка с числами

procedure Tbilet.Button4Click(Sender: TObject);
var i,j,k,t:integer;
a:array of string[50];
m,p:string;
begin
p:='';
j:=0;
for i:=0 to length(m)-1 do
begin
if m[i]<>' ' then p:=p+m[i];
if m[i]=' ' then
begin
a[j]:=p;
j:=j+1;
p:='';
end ;
if i=length(m) then
a[j]:=p; 
end;

[New man]

for i:=1 to length(m) do //все таки это строкап!
begin
if m[i]in['0'..'9'] then
begin j:=i;a[x]:='';
while m[j]in ['0'..'9']begin

a[x]:=a[x]+m[j];
inc(j);
end;
inc(x);
@i^:=j;
end ;

[ArtGrek]

цикл
копируите в массив до первого пробела
удаляете до первого пробела вместе с первым пробелом
конец цикла
копируете первое число, удаляете, автоматически первым становица следующее число, и так до конца
если не понятно, поясню с кодом

[Jene4ka]

не поняла, а каким образом числа будут разделяться? нужно же получить числа по отдельности, а что будет,если пробел встретится?

[Jene4ka]

ArtGrek, логика понятна, а вот код не получается, уже все,что угодно пробовала - ошибка и всё тут((
если не сложно, подскажите, пожалуйста

[ArtGrek]

procedure
var
  i: integer;
  str: string;
  mas: array[0..100] of integer;
begin
  str := '1 2 3 4 12 0 123 4';
  i := 0;
  repeat
    mas[i] := IntToStr(Copy(str, 1, Pos(' ',str)-1); //копируем в масив все до первого пробела, тоесть 1
    Delete(str, 1, Pos(' ',str)); // потом удаляем 1 и пробел после него, теперь первое число 2, и в следуюшем круге будет копироваца оно
    inc(i); // ивеличиваем порядковыи номер масива
  until Pos(' ', str) = 0; // цикл делаеца пока после всех удалении в строке не останеца пробелов, но останеца последнее число
  mas[i] := IntToStr(Copy(str, 1, Length(str)); // копируем последнее число
end;

[Jene4ka]

спасибо большое!!))

[Johnson]

procedure
var
  str: string;
  mas: array of integer;
begin
  str := '1 2 3 4 12 0 123 4';
  SetLength(mas,0);
  if str[length(str)]<>' ' then str:=str+' '; // чтобы на последнем числе не запнулось...
  while Pos(' ', str) > 0 do begin
    SetLength(mas,length(mas)+1);
    try
      mas[high(mas)] := IntToStr(Copy(str, 1, Pos(' ',str)-1);
      Delete(str, 1, Pos(' ',str));
    except
      showmessage('В строке присутствует не-число!');
      SetLength(mas,length(mas)-1);
    end;
  end;
end;

так будет слегка правильнее...