Создать типизированный файл целых чисел

type
  tList = ^rList;
  rList = record
    N : Integer;
    Next : tList;
  end;
 
procedure CreateFile(Name : String);
var
  F : File of Integer;
  N : Integer;
begin
  Assign(F, Name);
  Rewrite(F);
  repeat
    Write('Введите цело число (или 0 для окончания ввода): N = '); ReadLn(N);
    if N <> 0 then Write(F, N);
  until N = 0;
  Close(F);
  WriteLn('Файл целых чисел создан.');
end;
 
procedure OutFile(Name : String);
var
  F : File of Integer;
  N : Integer;
begin
  Assign(F, Name);
  Reset(F);
  while Not EOF(F) do
    begin
      Read(F, N);
      Write(#32, N);
    end;
  Close(F);
  WriteLn;
end;
 
procedure SortedFile(NameIn, NameOut : String);
var
  Fin, Fout : File of Integer;
  N : Integer;
  List, Cur, Lost : tList;
begin
  List := nil;
  Assign(Fin, NameIn);
  Reset(Fin);
  while Not EOF(Fin) do
    begin
      Read(Fin, N);
      if List = nil then
        begin
          New(List);
          List^.N := N;
          List^.Next := nil;
          Cur := List;
        end
      else
        begin
          New(Cur^.Next);
          Cur := Cur^.Next;
          Cur^.N := N;
        end;
    end;
  Close(Fin);
  
  Assign(Fout, NameOut);
  Rewrite(Fout);
  while List^.Next <> nil do
    begin
      Cur := List;
      Lost := nil;
      while Cur^.Next <> nil do
        begin
          if Cur^.N < Cur^.Next^.N then
            begin
              N := Cur^.N; Cur^.N := Cur^.Next^.N; Cur^.Next^.N := N;
            end;
          Lost := Cur;
          Cur := Cur^.Next;
        end;
      Write(Fout, Cur^.N);
      Dispose(Cur);
      Lost^.Next := nil;
    end;
  Write(Fout, List^.N);
  Dispose(List);
  Close(Fout);
end;
 
var
  Name, Sort : String;
begin
  Write('Введите имя файла: '); ReadLn(Name);
  CreateFile(Name);
  WriteLn('Содержимое файла ', Name, ':'); OutFile(Name);
  Write('Введите имя "отсортированного" файла: '); ReadLn(Sort);
  SortedFile(Name, Sort);
  WriteLn('Содержимое файла ', Sort, ':'); OutFile(Sort);
end.