[ART]

Код:

type
  TMass = array of integer;

function parse(inputString, delimiter: string): TMass;
var
 i: integer;
 M: TMass;
begin
 SetLength(M, 0);
 inputString := Trim(inputString) + delimiter;
 i := Pos(delimiter, inputString);
 while i <> 0 do begin
   SetLength(M, Length(M) + 1);
   M[High(M)] := StrToInt(Trim(Copy(inputString, 1, i - 1)));
   Delete(inputString, 1, i);
   i := Pos(delimiter, inputString);
 end;
 Result := M;
end;