Задан массив Y(M), который хранится в типизированном файле. Прочитать элементы этого массива из файла

const
  n_max = 100;
 
var
  y: array [1..n_max] of integer;
  m, i, j, jmax: integer;
  buff: integer;
  f: file of integer;
  g: text;
 
begin
  randomize;
  write('Введите размерность файла: ');
  readln(m);
  assign(f, 'f.dat');
  assign(g, 'g.txt');
  rewrite(f);
  rewrite(g);
  for i := 1 to m do
  begin
    buff := -n_max div 2 + random(n_max );
    write(f, buff);
  end;
  close(f);
  
  writeln('Исходный массив: ');
  reset(f);
  for i := 0 to filesize(f) - 1 do
  begin
    read(f, y[i + 1]);
    write(y[i + 1]:5);
    write(g, y[i + 1]:5);
  end;
  writeln;
  writeln(g);
  m := filesize(f);
  close(f);
  
  for j := 1 to m - 1 do
  begin
    jmax := j;
    for i := j to m do
      if y[i] > y[jmax] then 
        jmax := i;
    if jmax <> j then
    begin
      buff := y[j];
      y[j] := y[jmax];
      y[jmax] := buff;
    end;
  end;
  writeln('Максимальные:');
  writeln(y[1]:5, y[2]:5, ', произведение: ', y[1] * y[2]:5);
  writeln(g, y[1]:5, y[2]:5, y[1] * y[2]:5);
  writeln('Минимальные:');
  writeln(y[m]:5, y[m - 1]:5, ', произведение: ', y[m] * y[m - 1]:5);    
  writeln(g, y[m]:5, y[m - 1]:5, y[m] * y[m - 1]:5);    
  close(g);
end.