Дана строка. В ней ошибочно набраны цифры. Перенести их в конец сохраняя порядок

var
mas:array[1..n] of integer;
i,k:integer;
sr:real;
Procedure vvod;
  begin
  writeln('Введите элементы массива.');
  sr:=0;
  k:=0;
  for i:=1 to n do
     begin
     readln(mas[i]);
     if (mas[i] mod 2=0) then
       begin
       sr:=sr+mas[i];
       k:=k+1;
       end;
     end;
  sr:=sr/k;
  end;
Procedure vivod;
  begin
  writeln('Среднее арифметическое чётных элементов массива=',sr:3:2,'.');
  end;
BEGIN
vvod;
vivod;
readln;
END.

function findnum(var arg:string):string;
var
  s:string;
  i:byte;
begin
  s:='';
  for i:=1 to length(arg) do
    if arg[i] in ['0'..'9'] then
      s:=s+arg[i];
  findnum:=s;
end;
 
procedure sortstring(var s,st:string);
var
  i,n:byte;
begin
  for i:=1 to length(st) do begin
    n:=pos(st[i],s);
    delete(s,n,1);
  end;
end;
 
var
  s,st:string;
 
begin
  writeln('введите строку');
  readln(s);
  st:=findnum(s);
  if length(st)>0 then begin
    sortstring(s,st);
    s:=s+st;
    writeln(s);
  end;
  readln
end.

For i:=1 to Length(s) do
 if s[i] in ['0'..'9'] then 
 Begin
   Insert(s[i],s,Length(s));
   Delete(s,i,1);
 End;

Var i:byte;s,s1,s2:string;
Procedure Vvod(Var s:string);
Begin
   write('Введите строку: ');
   readln(s);
End;
Procedure Vivod(s:string);
Begin
   writeln(s);
End;
Begin
   Vvod(s);
   s1:='';s2:='';
   For i:=1 to Length(s) do
    if s[i] in ['0'..'9'] then s1:=s1+s[i]
     else s2:=s2+s[i];
   s:=s2+s1;
   Vivod(s);
End.