В каждой строке массива поменять местами максимальный и минимальный элементы

{В каждой строке массива поменять местами максимальный и минимальный элементы}
uses
  CRT;
 
const
  n = 5;
  m = 6;
 
var
  mas: array [1..n, 1..m] of integer;
  j, i, s, min, jmin, jmax, max, temp: integer;
 
begin
  Clrscr;
  randomize;
  writeln('Èñõîäíàÿ ìàòðèöà: ');
  for i := 1 TO n DO
  begin
    for j := 1 TO m DO
    begin
      MAS[i, j] := random(10) - 3;
      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;
  end.

type
  mas = array[1..100] of integer; //столбец матрицы
  matr = array[1..100] of mas; //массив столбцов
 
procedure Obmen(var v: mas);
var
  i, imn, imx: byte;
  x,n: integer;
begin
  imn := 1;imx := 1;
  for i := 1 to n do
    if v[i] < v[imn] then imn := i
    else if v[i] > v[imx] then imx := i;
  x := v[imn];
  v[imn] := v[imx];
  v[imx] := x;
end;
 
var
  a: matr;
  i, j: byte;
  f:text;
  n,m:integer;
 
begin
  assign(f,'fail.txt');
  reset(f);
  while not eof(f) do
 begin
  read(f,a[i,j]);
  
  end;
  for i := 1 to n do  //по количеству столбцов
    Obmen(a[i]);  //вызываем процедуру
      close(f);
  
  
  assign(f,'fail1.txt');
   rewrite(f);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i,j]);
      end;
    close(f);
  
  
end.

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.