Найти наименьший и наибольший элементы матрицы [A]

program mas2;
 
TYPE
AR=ARRAY[1..15] OF INTEGER;
 
VAR
MAS:AR;
I,M,P:INTEGER;
 
FUNCTION Find_Max(MF:AR):INTEGER;
VAR
Max,i:INTEGER;
BEGIN
Max:=0;
FOR i:=1 TO 14 DO
IF ABS(MF[i]-MF[i+1])>Max THEN Max:=ABS(MF[i]-MF[i+1]);
Find_Max:=Max;
END;
 
FUNCTION Find_Min(MF:AR):INTEGER;
VAR
Min,i:INTEGER;
BEGIN
Min:=32767;
FOR i:=1 TO 14 DO
IF ABS(MF[i]-MF[i+1])<Min THEN Min:=ABS(MF[i]-MF[i+1]);
Find_Min:=Min;
END;
 
BEGIN
Randomize;
FOR I:=1 TO 15 DO
BEGIN
MAS[i]:=RANDOM(1000);
WRITE(MAS[i]:6);
END;
FOR i:=1 TO 14 DO
BEGIN
FOR M:=1 TO 15 DO
BEGIN
IF MAS[i]>MAS[M] THEN
BEGIN
P:=MAS[i];
MAS[i]:=MAS[M];
MAS[M]:=P;
END;
END;
END;
WRITELN;
FOR
I:=1 TO 15 DO
WRITE(MAS[i]:6);
WRITELN;
WRITELN('Maximum difference = ', Find_Max(MAS));
WRITELN('Minimum difference = ', Find_Min(MAS));
READLN;
END.

mai:=1; maj:=1; mii:=1; mij:=1;
for i:=1 to n do
for j:=1 to m do
begin
if arr[i,j]>arr[mai,maj] then
begin
mai:=i; maj:=j;
end;
if arr[i,j]<arr[mii,mij] then
begin
mii:=i; mij:=j;
end;
end;
wtiteln('max ',arr[mai,maj]);
wtiteln('min ',arr[mii,mij]);