Создать типизированный файл, куда записать n целых чисел. Из файла создать

const
  nmax = 100;
 
var
  f: file of integer;
  A: array[1..nmax] of integer;
  i, n, imax, max, m, k: integer;
 
function isSimple(n: integer): boolean;
var
  i: integer;
  flag: boolean;
begin
  flag := true;
  n := abs(n);
  for i := 2 to round(sqrt(n)) do
    if n mod i = 0 then
    begin
      flag := false;
      break;
    end;
  isSimple := (n > 1) and (flag)
end;
 
begin
  repeat
    write('N: ');
    readln(n);
  until (n > 0) and (n <= nmax);
  writeln('Введите ', n, ' целых чисел');
  imax := 1;
  Assign(f, 'in.dat');Rewrite(f);
  for i := 1 to n do
  begin
    read(m);
    write(f, m);
    if i = 1 then max := m;
    if m > max then 
    begin
      max := m;
      imax := i;
    end;
  end;
  writeln('Max = ', max);
  k := 0;
  for i := imax + 1 to n do
  begin
    Seek(f, i - 1);
    read(f, m);
    if isSimple(m) then
    begin
      k := k + 1;
      A[k] := m;
    end;
  end;
  Close(f);
  if k = 0 then writeln('Простых чисел после max элемента нет')
    else
  begin
    writeln('Массив');
    for i := 1 to k do
      write(A[i], ' ');
  end;
  readln;
end.