Массивы в Pascal

program qu;
const
     n=5;
type
     arr=array[1..n,1..n] of integer;
     ar =array[1..100] of integer;
var
     i,j,max,maxarr,minarr,k:integer;
     a:arr;
     x:ar;
begin
randomize;
writeln('Квадратная матрица ',n,'x',n,' :');
for i:=1 to n do
     begin
     for j:=1 to n do
          begin
          a[i,j]:=random(10);
          write(a[i,j]:2);
          end;
     writeln;
     end;
max:=a[1,1];
for i:=1 to n do
     for j:=1 to n do
     if i<j 
          then
               begin
               if a[i,j]>max
                    then 
                    max:=a[i,j];
               end;
writeln('Максимальный элемент выше главной диагонали : ',max);
maxarr:=a[1,1];
minarr:=a[1,1];
for i:=1 to n do
     for j:=1 to n do
     begin
     if a[i,j]>maxarr
          then
          maxarr:=a[i,j];
     if a[i,j]<minarr
          then
          minarr:=a[i,j];
     end;
writeln;
writeln('Массив X от ',minarr,' к ',maxarr,' :');
for i:=minarr to maxarr do
     begin
          inc(k);
          x[k]:=i;
     end;
writeln;
for i:=1 to k do
     write(x[i],' ');
writeln;
end.