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

program StackExample;
uses Crt;
const n = 6;
type
  elementtype = integer;
  stack = ^celltype;
  celltype = record
  element: elementtype;
  next: stack
  end;
var top, s: stack; i, k, x, e: integer;
  a: array[1..n] of integer;
{----------------------------------------------------------------------}
procedure MakeNull(var s: stack); { делает стек S пустым}
var p: stack;
begin
  New(p); p^.element := 0; p^.next := nil; S := p {s-vershina steka}
end;
{----------------------------------------------------------------------}
procedure Push(x: elementtype; var S: stack); {вставляет элемент x в top of stack}
var p: stack;
begin
  New(p); p^.element := x; p^.next := S; S := p {s-vershina steka}
end;
{----------------------------------------------------------------------}
procedure Data(var S: stack); {формирование стека}
var i: byte; k: integer;
begin
  MakeNull(s);
  for i := 1 to n do begin
    writeln('Введите элемент стека');
    readln(k); Push(k, s) end;
end;
{----------------------------------------------------------------------}
function Empty(S: stack): boolean; {return true if stack is empty}
begin
  if S^.next = nil
    then Empty := true
  else Empty := false
end;
{----------------------------------------------------------------------}
function TopS(S: stack): elementtype; { return element from top of stack}
begin
  if Empty(S)
    then begin writeln(' Стек пустой '); Exit end
  else TopS := S^.element
end;
{---------------------------------------------------------------------}
procedure Pop(var S: stack); { удаляет, "выталкивает" элемент from top of stack}
var p: stack;
begin
  if Empty(S)
    then begin writeln(' Стек пустой '); Exit end
  else begin p := s; s := p^.next; Dispose(p) end
end;
{---------------------------------------------------------------------}
procedure OutData(S: stack); { вывод stack_a}
begin write('Стек имеет вид: ');
  while not (Empty(S)) do
  begin write(TopS(S): 3, ' '); a[i] := TopS(S); Inc(i); Pop(s); end; writeln
end;
{---------------------------------------------------------------------}
begin
  i := 1;
  Data(s);
  Outdata(s);
  MakeNull(s);
  for i := n downto 1 do
  begin
    Push(a[i], s)
  end;
  Push(a[n], s);
  OutData(s);
  readln;
end.