var
  file1, file2: file of integer;

begin
  Assign(file1, 'intfile1');
  Rewrite(file1);

  // Заполним файл...
  for var i := 1 to ReadLnInteger('Введите кол-во чисел:') do
  begin
    var temp := Random(-1000, 1000);
    Write(file1, temp);
  end;

  // Прочитаем файл...
  Reset(file1);
  while not file1.Eof do
  begin
    var temp: integer;
    Read(file1, temp);
    Write(temp, #32);
  end;
  WriteLn;

  // Перепишим в другой файл
  Assign(file2, 'intfile2');
  Rewrite(file2);
  var i := file1.FileSize;
  while i > 0 do
  begin
    var temp: integer;
    file1.Seek(i - 1);
    Read(file1, temp);
    Write(file2, temp);
    i -= 1;
  end;
  file1.Close;

    // Прочитаем файл...
  Reset(file2);
  while not file2.Eof do
  begin
    var temp: integer;
    Read(file2, temp);
    Write(temp, #32);
  end;
  WriteLn;
  file2.Close;
end.