Заполнить секторы матрицы, лежащие выше и ниже главной и побочной диагоналей, от левого верхнего угла вправо - вниз (закончить перевод с C++)

program lab9;
uses crt;
const
s=9;  
var
Ar:array[1..s,1..s] of 1..99;
l,r,k,dd,r1,r2:integer;
 
 
begin
r1:=1; r2:=S-2; dd:=1; k:=1;
  for l:=0 to s-1 do
    for r:=0 to s-1 do  
      if ((r<r1)and(r>r2))
      then Ar[l][r]:=0
      else Ar[l][r]:=k;
 
    r1=dd; r2=-dd;
 
    if (r1>r2) dd=-dd;
 
 
  for l:=0 to s-1 do
   for r:=0 to s-1 do
      write(Ar[l][r]);

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
    x:integer;
begin
clrscr;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
x:=0;
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     if((j>i)and(j<=n-i))
     or((j<i)and(j>n-i+1))then
      begin
       x:=x+1;
       a[i,j]:=x;
      end
      else a[i,j]:=0;
     write(a[i,j]:4);
    end;
   writeln;
 end;
readln
end.