Дано файл в котором находиться прямоугольный массив действительных чисел.В каждом его столбике поменять местами максимальный и минимальный элементы и вывести полученную матрицу в новый файл — Pascal(Паскаль)

uses
  CRT;
var
  mas: array [1..20, 1..20] of integer;
  m, n, j, i, s, min, jmin, jmax, max, temp: integer;
  f:text;
begin
  Clrscr;
  randomize;
  assign(f, 'C:\1.txt');
  reset(f);
  readln(f, n);
  readln(f, m);
  writeln('=: ');
  for i := 1 TO n DO
  begin
    for j := 1 TO m DO
    begin
      read(f,mas[i, j]);
      write(' ',mas[i, j]:2);
    end;
    writeln;
  end;
  writeln;
  for i := 1 to n do
  begin
    max := mas[i, 1];
    jmax := 1;
    min := mas[i, 1];
    jmin := 1;
    for j := 1 to m do
      if MAS[i, j] < max THEN
      begin
        max := mas[i, j];
        jmax := j;
      end
      else
      if MAS[i, j] > min THEN
      begin
        min := mas[i, j];
        jmin := j;
      end;
    begin
      temp := mas[i,jmin];
      mas[i,jmin] := mas[i,jmax];
      mas[i,jmax] := temp;
    end;
  end;
  writeln;
  WRITELN('=: ');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      write(' ', mas[i, j]:2);
    end;
    writeln;
  end;
  Close(f);
  end.

5
4
2 3 4 -6
6 0 3 3
8 -1 3 9
2 0 0 3
6 5 -3 -2
5-это кол-во строк
4-кол-во столбцов