Найти наибольшее и наименьшее из значений элементов, расположенных в заштрихованной части матрицы.

uses  crt;
const n=5;
var a:array[1.. n,1..n] of integer;
    i,j,imin,jmin,imax,jmax:integer;
begin
randomize;
imax:=1; jmax:=1;
imin:=1; jmin:=1;
writeln('');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=random(100);
        write(a[i,j]:3);
        if (j>=i) and (a[i,j]>a[imax,jmax]) then
           begin
           imax:=i;
           jmax:=j;
           end;
        if (j>=i) and (a[i,j]<a[imin,jmin]) then
           begin
           imin:=i;
           jmin:=j;
           end;
        end;
    writeln;
    end;
writeln('Мин. элемент =',a[imin,jmin]:3,', в строке ',imin,', в столбце ',jmin);
writeln('Макс.элемент =',a[imax,jmax]:3,', в строке ',imax,', в столбце ',jmax);
end.