наибольший и наименьший элемент заштрихованной части

1: for i:=1 to n-1 do
    for j:=1 to k do
2: for i:=1 to n-1 do
    for j:=L to n do
3: for i:=n-k to n do
    for j:=1 to k do
4: for i:=n-k to n do
    j:=L to n do

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,k,l,imx,jmx:byte;
    mx:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы от 4 до ',nmax,' n=');
readln(n);
until n in [4..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(50);
writeln('Введите размеры заштрихованных областей:');
write('l от 1 до ',n-1,' l=');
readln(l);
write('k от 1 до ',n-l,' k=');
readln(k);
mx:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if((i in [1..k,n-l+1..n])and(j in [1..l,n-k+1..n]))and(a[i,j]>mx)then
 begin
  mx:=a[i,j];
  imx:=i;
  jmx:=j;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if((i in [1..k,n-l+1..n])and(j in [1..l,n-k+1..n])) then textcolor(10)
    else textcolor(15);
    if(i=imx)and(j=jmx) then textcolor(12);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
textcolor(15);
write('Максимальный элемент в заштрихованной области a[',imx,',',jmx,']=',mx);
readln
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,k,l,imx,jmx,imn,jmn:byte;
    mx,mn:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы от 4 до ',nmax,' n=');
readln(n);
until n in [4..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(50);
writeln('Введите размеры заштрихованных областей:');
write('l от 1 до ',n-1,' l=');
readln(l);
write('k от 1 до ',n-l,' k=');
readln(k);
mx:=a[1,1];mn:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if((i in [1..k,n-l+1..n])and(j in [1..l,n-k+1..n]))then
 begin
  if a[i,j]>mx then
   begin
    mx:=a[i,j];
    imx:=i;
    jmx:=j;
   end
  else if a[i,j]<mn then
   begin
    mn:=a[i,j];
    imn:=i;
    jmn:=j;
   end;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if((i in [1..k,n-l+1..n])and(j in [1..l,n-k+1..n])) then textcolor(10)
    else textcolor(15);
    if(i=imx)and(j=jmx) then textcolor(12);
    if(i=imn)and(j=jmn) then textcolor(13);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
textcolor(15);
writeln('Максимальный элемент в заштрихованной области a[',imx,',',jmx,']=',mx);
writeln('Минимальный  элемент в заштрихованной области a[',imn,',',jmn,']=',mn);
readln
end.