Из заданного текста перенести все цифры в конец каждой строки, сохранив их порядок

Type
PtrQueue = ^RecQueue;
RecQueue = record
  Data : char;
  Next : PtrQueue;
end;
 
Var
f1, f2 : text;
Stroka, NewStroka : string;
 
Procedure add(Var BeginO, EndO : PtrQueue; c : char);
Var
tmp : PtrQueue;
Begin
  new(tmp);
  tmp^.Data := c;
  tmp^.Next := Nil;
  if BeginO = Nil
  then
   BeginO := tmp
  else
   EndO^.Next := tmp;
  EndO := tmp; 
End;
 
function del(Var BeginO: PtrQueue; Var c : char):boolean;
Var
tmp : PtrQueue;
Begin
  del:=false;
  if BeginO = Nil
  then
   del:=true
  else begin
   c := BeginO^.Data;
   tmp := BeginO;
   BeginO := BeginO^.Next;
   dispose(tmp);
   if begino=nil then del:=true;
  end;
End;
 
Procedure ModifyStr(St : string; var NewSt : string);
Var
i : integer;
l : char;
O1, EndO1, O2, EndO2 : PtrQueue;
begin
O1 := Nil;
EndO1 := Nil;
O2 := Nil;
EndO2 := Nil;
NewSt := '';
for i := 1 to Length(St) do
if St[i] in ['0'..'9']
then 
add(O2, EndO2, St[i])
else
add(O1, EndO1, St[i]);
while O1 <> Nil do
begin
del(O1, l);
NewSt := NewSt + l;
end;
while O2 <> Nil do
begin
del(O2, l);
NewSt := NewSt + l;
end;
End;
 
Begin
  assign(f1,'input.txt');reset(f1);
  assign(f2, 'output.txt');rewrite(f2);
  while not Eof(f1) do
  begin
   readln(f1, Stroka);
   ModifyStr(Stroka, NewStroka);
   writeln(f2, NewStroka);
  end;
  close(f1);
  close(f2);
End.