обработка многомерных массивов

for i:=1 to n do
 for j:=i+1 to n-i do

Program lab13;
const size=100;
var
a:array[1..size,1..size] of integer;
j,i,n:byte;
max:integer;
begin
randomize;
repeat
write('vvedite razmer massiva (do ',size,') : ');
readln(n)
until n in [1..size];
for i:=1 to n do
begin
for j:=1 to n do
begin
if (j<=i) and (j<=n-i+1) then
a[i,j]:=random(101)-50;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then max:=a[i,j];
writeln('MaxsimalbnbIu* element: ',max);
end.

uses crt;
var a:array [1..100,1..100] of integer;
i,j,max,n:integer;
begin
n:=5;
for i:=1 to n do
 for j:=1 to n do
   a[i,j]:=random (100);
 
for i:=1 to n do
 begin
  for j:=1 to n do
   write (a[i,j]:4);
  writeln
 end;
 
 max:=a[1,2];
 
 for i:=1 to n div 2 do
  for j:=i+1 to n-i do
   if a[i,j]>max then max:=a[i,j];
 
 for i:=n downto n div 2 do
  for j:=i-1 downto n-i+1 do
   if a[i,j]>max then max:=a[i,j];
   
write ('max= ',max);
readkey
end.