Дана квадратная матрица n-го порядка. Найти наименьший/нимбольший элемент матрицы. Напечатать его индексы

[Vadim123456]

Добрый день. Помогите, пожалуйста, написать программу. Я знаю, как только по отдельность найти минимальный или максимальный и найти их индексы. А вот совместить всё в одну программу не получается.

Задание:
Дана квадратная матрица n-го порядка. Найти наименьший/нимбольший элемент матрицы. Напечатать его индексы.

Program zd;
Uses crt;
Var
a:array [1..100,1..100] of integer;
i,j,jmin,imin:integer;
Begin
Randomize;
Clrscr;
Write('Vvedite n=');
Readln(n);
For i:=1 to n do begin
For j:=1 to n do begin
m[i,j]:=-100+random(201);
Write(m[i,j]:3);
End;
Writeln;
End;
For i:=2 to n do begin 
For j:=2 to n do begin
If m[i,j]<m[imin,jmin] then begin
imin:=i;
jmin:=j;
End;
End;
End;
Writeln('Min=',m[imin,jmin]);
Writeln('Stroka=',imin,' ','Stolbik=',jmin);
Readln;
End.

[ROMA2PVT]

Program mas;
var
a:array[1..100,1..100] of integer;
i,j,maxi,maxj,mini,minj,n,m,max,min:integer;
begin
Write('Введите количество строк:');
readln(n);
Write('Введите количество столбцов:');
readln(m);
writeln('Исходный массив: ');
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
Write(a[i,j]:3);
end;
writeln;
end;
writeln;
max:=a[1,1];
min:=a[1,1];
maxi:=1;
maxj:=1;
mini:=1;
minj:=1;
for i:=1 to n do
for j:=1 to m do
begin
if max<a[i,j] then
begin
max:=a[i,j];
maxi:=i;
maxj:=j;
end;
if min>a[i,j] then
begin
min:=a[i,j];
mini:=i;
minj:=j;
end;
end;
writeln('MIN = A[',mini,';',minj,']=',min);
writeln('MAX = A[',maxi,';',maxj,']=',max);
Writeln;
end.

Вот лови.

[Vadim123456]

Спасибо большое)

[ROMA2PVT]

Для большого спасибо внизу висы есть.