30 баллов!!! помогите срочно!!!

В программе описан двумерный массив A следующим образом
const N=5; M=6;
Type ARR=array[1..N,1..M] of integer;
var A: ARR;

Определить, как изменится в программе массив в результате вызова процедуры PAR(A).
procedure PAR(var A:ARR):
var I,J,MAXA,MINA,MAXI,MINI,B: integer;
begin MAXA:=A[1,1]; MINA:=A[1,1]; MAXI:=1; MINI:=1;
for I:=1 to N do
for J:=1 to M do
if A[I,J]>MAXA then
begin MAXA:=A[I,J]; MAXI:=I end
else if A[I,J] begin MINA:=A[I,J]; MINI:=I end;
if MAXI<>MINI then
for J:=1 to M do
begin B:=A[MAXI,J]; A[MAXI,J]:=A[MINI,J]; A[MINI,J]:=B end
end;