Создать типизированный файл целых чисел и поместить в него 12 случайных чисел. Удалить из файла три последних числа. Найти в файле наибольшее число и два числа, стоящих за ним. Вывести в текстовый файл найденные значения и их сумму.- Pascal(Паскаль)

var
  IntFile: File of integer;
  OutFile: Text;
  IntNums: array [1..12] of integer;
  i, max, index: integer;
begin
  randomize;
  Assign(IntFile, 'Output.int');
  Assign(OutFile, 'Output.txt');
 
  Rewrite(IntFile);
  Rewrite(OutFile);
  for i:=1 to 12 do
    begin
      IntNums[i]:=random(101);
      {write(IntNums[i], ' '); это для вывода чисел на экран, можно раскомментировать}
      write(IntFile, IntNums[i]);
    end;
 
  Reset(IntFile);
  for i:=1 to 9 do
    read(IntFile, IntNums[i]);
 
  Rewrite(IntFile);
  for i:=1 to 9 do
    write(IntFile, IntNums[i]);
  Close(IntFile);
 
  max:=IntNums[1];
  index:=1;
  for i:=2 to 9 do
    if IntNums[i]>=max then
      begin
        max:=IntNums[i];
        index:=i;
      end;
 
{если максимальное число на седьмой позиции, то у него лишь один сосед, можно доработать}
  if index<=7 then 
    write(OutFile, max, '+', IntNums[index+1], '+', IntNums[index+2], '=',
      max+IntNums[index+1]+IntNums[index+2])
  else
    write(OutFile, max);
  Close(OutFile);
  readln;
end.