Создание и редактирование .dat файла

const
  fName = 'data.dat';
begin
  Randomize;
  var n := ReadLnInteger('Число компонент файла ' + fName + ': n =');
  var f : File of Integer; Rewrite(f, fName);
  for var i := 1 to n do Write(f, Random(0, 99));
  Close(f); WriteLn('Файл ' + fName + ' сформирован.');
end.

const
  fromName = 'data.dat';
  toName   = 'unical.dat';
 
procedure PrintFile(fName : String);
begin
  WriteLn('Содержимое файла ' + fName + ':');
  var f : File of Integer; Reset(f, fName); var n : Integer;
  while Not EOF(f) do begin Read(f, n); Print(n); end;
  Close(f); WriteLn;
end;
 
procedure CreateUnicalFile(fromName, toName : String);
begin
  var fromFile, toFile : File of Integer;
  var n : Integer; var L := new List<integer>;
  Reset(fromFile, fromName); Rewrite(toFile, toName);
  while Not EOF(fromFile) do
    begin
      Read(fromFile, n);
      if Not L.Contains(n) then
        begin L.Add(n); Write(toFile, n); end;
    end;
  Close(fromFile); Close(toFile);
  WriteLn('Сформирован новый файл, в котором исключены повторения компонент исходного файла.');
end;
 
begin
  PrintFile(fromName);
  CreateUnicalFile(fromName, toName);
  PrintFile(toName);
end.