Задание со стеками и очередями: Содержимое файла f переписать в файл g, перенося цифры в конец строки

var f,g:text;
    s1,s2,s:ansistring;
    i:longint;
begin
assign(f,'input.txt');
assign(g,'output.txt');
reset(f);
rewrite(g);
while not eof(f) do
  begin
    readln(f,s);
    s1:='';
    s2:='';
    for i:=1 to length(s) do
      if (s[i] in ['a'..'z','A'..'Z']) or (s[i]=' ') then s1:=s1+s[i]
      else s2:=s2+s[i];
    s1:=s1+s2;
    writeln(g,s1);
  end;
close(f);
close(g);
end.

type queue=^q;
       q=record
         data:string;
         next:queue;
       end;
var f,g:text;
    s1,s2,s:ansistring;
    i:longint;
    qBegin,qEnd:queue;
procedure push(data:string);
begin
if (qBegin=nil) then
  begin
    new(qEnd);
    qBegin:=qEnd;
  end
else
  begin
    new(qEnd^.next);
    qEnd:=qEnd^.next;
  end;
qEnd^.data:=data;
qEnd^.next:=nil;
end;
procedure clear;
var p:queue;
begin
while true do
  begin
    new(p);
    p:=qBegin;
    if p=nil then break;
    writeln(g,p^.data);
    qBegin:=p^.next;
    dispose(p);
  end;
end;
begin
assign(f,'input.txt');
assign(g,'output.txt');
reset(f);
rewrite(g);
while not eof(f) do
  begin
    readln(f,s);
    s1:='';
    s2:='';
    for i:=1 to length(s) do
      if (s[i] in ['a'..'z','A'..'Z']) or (s[i]=' ') then s1:=s1+s[i]
      else s2:=s2+s[i];
    s1:=s1+s2;
    push(s1);
  end;
clear;
close(f);
close(g);
end.