Паскаль Напишите программку, которая наполняет квадратную матрицу случайными числами в интервале

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
i,j,max,min,idxi,idxj,n,idxii,idxjj:integer;
begin
clrscr;
repeat
write(n=);
readln(n);
until n in [1..nmax];
writeln(ГГ*ГГГЁГГ* :);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=10+random(90);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
max:=a[1,1]; min:=a[1,1]; idxi:=1;idxj:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]gt;max then
begin
max:=a[i,j];
idxi:=i;
idxj:=j;
end
else
if a[i,j]lt;min then
begin
min:=a[i,j];
idxii:=i;
idxjj:=j;
end;
writeln(ГГЁГ*ГЁГГ*ГГГ*ГГ ГГГГГГ*Г = ,min, i=,idxii, j=,idxjj);
writeln(ГГ*ГГГЁГГ*ГГГ*ГГ ГГГГГГ*Г = ,max, i=,idxi, j=,idxj);
readkey;
end.