Создать массив по заданному правилу

Program z_14;
Uses crt, graphabc;
Const n=9;
var
mas:array[1..n,1..n]of integer;
x,y,k, i:integer;
sum : real;
begin
 k:=k+1;
 for x:=1 to (n+1) div 2 do
  begin
   for y:=x to n-x+1 do
    begin
     mas[x,y]:=k;
     Inc(k);
    end;
   for y:=x+1 to n-x+1 do
    begin
     mas[y,n-x+1]:=k;
     Inc(k);
    end;
   for y:=n-x downto x do
    begin
     mas[n-x+1,y]:=k;
     Inc(k);
    end;
  for y:=n-x downto x+1 do
   begin
    mas[y,x]:=k;
    Inc(k);
   end;
  end;
 
for x:=1 to n do
 for y:=1 to n do begin
  if x = y then
  mas[x,y]:=0;
  if x + y = n+1 then
  mas[x,y]:=0;
 
  end;
 
 for x:=1 to n do
 for y:=1 to n do
  begin
   rectangle (y*50, x*50, y*50+38, x*50+38);
   textsize (15);
   textout (y*50+6, x*50+6, inttostr(mas[x,y]));
  end;
  end.

Uses GraphABC;
Const n=9;
var mas:array[1..n,1..n]of integer;
    k,x,y,r:integer;
    vg,ng,vp,np:integer;//суммы выше, ниже главной, выше, ниже побочной
begin
k:=9;
r:=0;//расстояние от края до строки(столбца)
k:=9;//значение в ячейке [1,0]
//заполняем по спирали
repeat
    inc(r);
    for x:=r   to n-r+1   do begin inc(k);mas[r,x]:=k end; //вправо
    for x:=r+1 to n-r+1   do begin inc(k);mas[x,n-r+1]:=k end; //вниз
    for x:=n-r downto r   do begin inc(k);mas[n-r+1,x]:=k end;//влево
    for x:=n-r downto r+1 do begin inc(k);mas[x,r]:=k end;//вверх
  until k=n*n+9;//дошли до центра
for x:=1 to n do //обнуляем диагонали
 begin
  mas[x,x]:=0;
  mas[x,n-x+1]:=0;
 end;
setwindowsize(540,600); //размер графического окна
centerwindow; //по центру экрана
vg:=0;
ng:=0;
vp:=0;
np:=0;
for x:=1 to n do
for y:=1 to n do
 begin
  rectangle (y*50, x*50, y*50+38, x*50+38);
  setfontsize (15);
  textout (y*50+6, x*50+6, inttostr(mas[x,y]));
  if y>x then inc(vg,mas[x,y])
  else if y<x then inc(ng,mas[x,y]);
  if y<n-x+1 then inc(vp,mas[x,y])
  else if y>n-x+1 then inc(np,mas[x,y]);
 end;
textout(0,windowheight-100,'Сумма под главной    диагональю='+inttostr(ng));
textout(0,windowheight-80,'Сумма над главной    диагональю='+inttostr(vg));
textout(0,windowheight-60,'Сумма под побочной диагональю='+inttostr(np));
textout(0,windowheight-40,'Сумма над побочной диагональю='+inttostr(vp));
end.

const n=4;
var i,j,s:integer;
  a:array[1..n,1..n]of integer;
 
begin
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=random(41)-20;
      write(a[i,j]:4); end;
    writeln; end;
  writeln;
 
  for i:=2 to n do
    for j:=1 to i-1 do
      s:=s+a[i,j];
  writeln('Сумма элементов под главной диагональю: ',s);
  
  s:=0;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      s:=s+a[i,j];
  writeln('Сумма элементов над главной диагональю: ',s);
  
  s:=0;
  for i:=2 to n do
    for j:=n-i+2 to n do
      s:=s+a[i,j];
  writeln('Сумма элементов под побочной диагональю: ',s);   
  
  s:=0;
  for i:=1 to n-1 do
    for j:=1 to n-i do
      s:=s+a[i,j];
  writeln('Сумма элементов над побочной диагональю: ',s);
end.