Дана строка(string) из трех чисел разделенных пробелом нужно их присвоить к а1,а2,а3. например дана строка 22 33 444 а1=22 а2=33 а3=444

1. Типовой "школьный" вариант
// PascalABC.NET 3.0, сборка 1076
var
  s,a1,a2,a3:string;
  p:integer;
begin
  s:='22 33 444';
  p:=Pos(' ',s);
  a1:=Copy(s,1,p-1);
  Delete(s,1,p);
  p:=Pos(' ',s);
  a2:=Copy(s,1,p-1);
  Delete(s,1,p);
  a3:=s;
  Writeln(a1,#13#10,a2,#13#10,a3)
end.

Результат выполнения программы:
22
33
444

2."Современный" вариант
// PascalABC.NET 3.0, сборка 1076
begin
  var s:='22 33 444';
  var m:=s.ToWords;
  var a1:=m[0];
  var a2:=m[1];
  var a3:=m[2];
  Writeln(a1,#13#10,a2,#13#10,a3)
end.

Результат выполнения программы:
22
33
444