Модули: Поменять местами максимальный и минимальный элементы в каждой строке матрицы

uses crt;
const n=5; m=10;
var a:array[1..n,1..m]of integer;
i,j,min,max,b:integer;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to m do
  begin
    a[i,j]:=-50+random(100);
    write(a[i,j]:4);
  end;
  writeln;
 end;
 
 for i:=1 to n do
 begin
  min:=1;
  max:=2;
  for j:=1 to m do if a[i,j]>a[i,max] then max:=j else if a[i,j]<a[i,min] then min:=j;
 writeln('Строка ',i);
 writeln('MAX = A[',i,',',max,']=',a[i,max]);
 writeln('MIN = A[',i,',',min,']=',a[i,min]);
  b:=a[i,min]; 
  a[i,min]:=a[i,max];
  a[i,max]:=b;
 end;
 
 writeln('Преобразовнная матрица');
 for i:=1 to n do
 begin
  for j:=1 to m do write(a[i,j]:4);
  writeln;
 end;
end.

unit veider;
 
const
  n=5;
  m=10;
  
type
  arr=array[1..n,1..m] of integer;
  
procedure init(var a: arr);
var i,j: byte;
begin
  for i:=1 to n do
    for j:=1 to m do
      a[i,j]:=-50+random(101);
end;
 
procedure outPut(a: arr);
var i,j: byte;
begin
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  writeln;
end;
 
procedure change(var a: arr);
var 
  i,j,jmin,jmax: byte;
  tmp: integer;
begin
  for i:=1 to n do
  begin
    jmin:=1; jmax:=1;
    for j:=2 to m do
    begin
      if a[i,j]>a[i,jmax] then jmax:=j;
      if a[i,j]<a[i,jmin] then jmin:=j;     
    end;
    write(i,'. min = a[',i,',',jmin,'] = ',a[i,jmin]);
    writeln(';    max = a[',i,',',jmax,'] = ',a[i,jmax]);
    tmp:=a[i,jmin];
    a[i,jmin]:=a[i,jmax];
    a[i,jmax]:=tmp;
  end;
  writeln;
end;
 
end.

uses veider;
var
  a: arr;
begin
  init(a);
  writeln('Исходный массив:');
  outPut(a);
  change(a);
  writeln('Преобразованный массив:');
  outPut(a);
  readln;
end.

jmin:=1; jmax:=1;

for j:=2 to m do

a[i,j]:=-50+random(101);