Найти минимальный и максимальный элементы в матрице их номера.формат вывода: минимальный элемент a[3,4]=11 максимальный элемент a[2,2]=89 ! полное решение! заранее большое : 3

Const n=10; m=10;
var a:array [1..n,1..m] of integer;
i,j,min,x1,y1,max,x2,y2:integer;
begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write (a[i,j]:4);
end;
writeln;
end;
min:=a[1,1];
max:=a[1,1];
x1:=1;
x2:=1;
y1:=1;
y2:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then 
begin
min:=a[i,j];
x1:=i;
y1:=j;
end else 
if a[i,j]>max then begin 
max:=a[i,j];
x2:=i;
y2:=j;
end;
writeln ('Минимальный элемент    A[',x1,',',y1,']=',min);
writeln (',Максимальный элемент    A[',x2,',',y2,']=',max);
end.