Нахождение min и max элементов матрицы, создание матрицы определенного вида

{$DEFINE DEBUG} // режим отладки
const NMAX=50; //максимальное количество элементов в массиве
type mas=array [1..NMAX,1..NMAX]of integer; //скрытие массива для сохранности индексов
 
//------------------------------------------------------------------------------------
 
procedure FillArray (var m:mas;N:integer);
var i,j:integer; //используются как индексы элементов массива
begin
randomize();
for i:=1 to N do //перебор строк
for j:=1 to N do //перебор столбцов
if (i*j<=6)  then //ЕСЛИ произведение индексов <=6 (!!!не работает для N=10!!!) (N задаётся ниже)
begin
m[i,j]:=0 //ТО элемент массива = 0
end
else 
begin
if (i>j) then //определение местонахождения элемента..
m[i,j]:=N-i+1 //..относительно главной диагонали
else
m[i,j]:=N-i+1;
end;
end;
 
//------------------------------------------------------------------------------------
 
procedure FillArrayRandom (var m:mas;min,max,N:integer);
var i,j:integer; //используются как индексы элементов массива
begin
randomize();
for i:=1 to N do //перебор строк
for j:=1 to N do //перебор столбцов
m[i,j]:=min+random(max-min+1); //случайные числа генерируются в данном диапазоне
end;
 
//------------------------------------------------------------------------------------
 
procedure PrintArray (var m:mas;N:integer);
var i,j:integer; //используются как индексы элементов массива
begin
for i:=1 to N do //перебор строк массива
begin
for j:=1 to N do //перебор столбцов массива
write(m[i,j]:3); //вывод элементов одной строки
writeln; //отделяем строки
end;
end;
var a:mas; //массив обьявлен
mi:integer; //минимальный элемент
ma:integer; //максимальный элемент
sym:integer; //сумма этих элементов
n:integer; //количество элементов в массиве
i:integer; //для обхода массива
m:integer;
begin
{$IFDEF DEBUG} //используем основные директивы компилятора
n:=4;
{$ELSE} //esli ne otladka
write('vvedite kol-vo elementov v massive: ');
readln(n); //с каким количеством будет работать программа
 
{$ENDIF}
if ((n>NMAX)or(n<=0)) then
begin
writeln('elementov ne mozhet bit menee 1 u bolee',NMAX);
exit;
end;
FillArray(a,n); //заполнение массива случайными числами
PrintArray(a,n);
writeln('*~~~~~~~~~~~~*');
FillArrayRandom(a,-5,5,n); //случайные числа от -5 до 5
PrintArray(a,n);
mi:=1;
ma:=1;
for i:=1 to N do
begin
end;
 
//!!!!здесь нахождение мин и макс!!!!
 
end.
//writeln('MIN = ', mi);
//writeln('MAX = ', ma);
//sym:=mi+ma;
//writeln('MIN + MAX = ',sym)
//end.

{$DEFINE DEBUG} // режим отладки
const NMAX=50; //максимальное количество элементов в массиве
type mas=array [1..NMAX,1..NMAX]of integer; //скрытие массива для сохранности индексов
 
//------------------------------------------------------------------------------------
 
procedure FillArray (var m:mas;N:integer);
var i,j:integer; //используются как индексы элементов массива
begin
randomize();
for i:=1 to N do //перебор строк
for j:=1 to N do //перебор столбцов
if (i*j<=6)  then //ЕСЛИ произведение индексов <=6 (!!!не работает для N=10!!!) (N задаётся ниже)
begin
m[i,j]:=0 //ТО элемент массива = 0
end
else 
begin
if (i>j) then //определение местонахождения элемента..
m[i,j]:=N-i+1 //..относительно главной диагонали
else
m[i,j]:=N-i+1;
end;
end;
 
//------------------------------------------------------------------------------------
 
procedure FillArrayRandom (var m:mas;min,max,N:integer);
var i,j:integer; //используются как индексы элементов массива
begin
randomize();
for i:=1 to N do //перебор строк
for j:=1 to N do //перебор столбцов
m[i,j]:=min+random(max-min+1); //случайные числа генерируются в данном диапазоне
end;
 
//------------------------------------------------------------------------------------
 
procedure PrintArray (var m:mas;N:integer);
var i,j:integer; //используются как индексы элементов массива
begin
for i:=1 to N do //перебор строк массива
begin
for j:=1 to N do //перебор столбцов массива
write(m[i,j]:3); //вывод элементов одной строки
writeln; //отделяем строки
end;
end;
var a:mas; //массив обьявлен
mi:integer; //минимальный элемент
ma:integer; //максимальный элемент
sym:integer; //сумма этих элементов
n:integer; //количество элементов в массиве
j,i:integer; //для обхода массива
m:integer;
begin
{$IFDEF DEBUG} //используем основные директивы компилятора
n:=4;
{$ELSE} //esli ne otladka
write('vvedite kol-vo elementov v massive: ');
readln(n); //с каким количеством будет работать программа
 
{$ENDIF}
if ((n>NMAX)or(n<=0)) then
begin
writeln('elementov ne mozhet bit menee 1 u bolee',NMAX);
exit;
end;
FillArray(a,n); //заполнение массива случайными числами
PrintArray(a,n);
writeln('*~~~~~~~~~~~~*');
FillArrayRandom(a,-5,5,n); //случайные числа от -5 до 5
PrintArray(a,n);
 
//!!!!здесь нахождение мин и макс!!!!
mi:=a[1,1];
ma:=a[1,1];
for i:=1 to N do
  for j:=1 to n do
    begin
      if a[i,j]>ma then
        ma:=a[i,j];
      if a[i,j]<mi then
        mi:=a[i,j];
    end;
 
 
  writeln('MIN = ', mi);
  writeln('MAX = ', ma);
  sym:=mi+ma;
  writeln('MIN + MAX = ',sym)
end.