Создать текстовый файл, в который построчно записать прямоугольный массив

const
  n1 = 5;
  m1 = 7;
 
var
  f: text;
  A: array[1..n1, 1..m1] of integer;
  v_min, v_max: integer;
  n, m, i, j, t: integer;
  imax, jmax, imin, jmin: integer;
 
begin
  Assign(f, 'in.txt');Rewrite(f);
  write('v_min: ');
  readln(v_min);
  repeat
    write('v_max: ');
    readln(v_max);
  until v_max > v_min;
  for i := 1 to n1 do
  begin
    for j := 1 to m1 do
    begin
      t := v_min + random(v_max - v_min + 1);
      write(f, t:5);
    end;
    writeln(f);
  end;
  n := 0;m := 0;
  Close(f);Reset(f);
  while not Eof(f) do
  begin
    n := n + 1;m := 0;
    while not Eoln(f) do
    begin
      read(f, t);
      m := m + 1;
      A[n, m] := t;
    end;
    readln(f);
  end;
  writeln('Исходная матрица');
  imax := 1;jmax := 1;
  imin := 1;jmin := 1;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      write(A[i, j]:5);
      if A[i, j] > A[imax, jmax] then
      begin
        imax := i;
        jmax := j;
      end
      else if A[i, j] < A[imin, jmin] then
      begin
        imin := i;
        jmin := j;
      end;
    end;
    writeln;
  end;
  writeln('Max = ', A[imax, jmax]);
  writeln('Min = ', A[imin, jmin]);
  if imax > imin then 
  begin
    t := imax;
    imax := imin;
    imin := t;
  end;
  if jmax > jmin then 
  begin
    t := jmax;
    jmax := jmin;
    jmin := t;
  end;
  if imax = imin then
    for j := jmax + 1 to imin - 1 do
      A[imax, j] := 0
  else if imax <> imin then
  begin
    for j := jmax+1 to m do
      A[imax, j] := 0;
    for j := 1 to jmin - 1 do
      A[imin, j] := 0;
  end;
  for i := imax + 1 to imin - 1 do
    for j := 1 to m do
      A[i, j] := 0;
  Close(f);Rewrite(f);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(f, A[i, j]:5);
    writeln(f);
  end;
  Close(f);
  writeln('Полученный матрица');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(A[i, j]:5);
    writeln;
  end;
  readln;
end.