Примерно так
var
bufer_ptr:POINTER TO BYTE;
valueWORD;
power10WORD:=1;
values_arr:ARRAY [1..10] of DWORD;
arr_index:BYTE:=1;
end_var
bufer_ptr:=str_incom;
for iter:=0 to len(str_incom) do
if bufer_ptr^>16#30 and bufer_ptr^<16#39 then
value:=value+(bufer_ptr^-16#30)*power10;
power10:=power10*10;
else
values_arr[arr_index]:=value;
arr_index:=arr_index+1;
value:=0;
power10:=1;
end_if
bufer_ptr:=bufer_ptr+1;
end_for




WORD;


