Дана квадратная матрица. получить квадратную матрицу того же порядка, в которой элемент равен 1, если соответствующий ему элемент исходной матрицы больше элемента, расположенного в этой строке на главной диагонали, и равен 0 в противном случае — Pascal(Паскаль)

const 
n=10;
var
a:array[1..n,1..n] of integer;
b:array[1..n,1..n] of integer;

i,j:integer;
begin
for i:=1 to n do
    begin 
        for j:=1 to n do
          begin
            a[i,j]:=random(20);
            write('  ',a[i,j]:3);
          end;
        writeln();
    end;
writeln('--------') ; 

 for i:=1 to n do
   for j:=1 to n do
     if a[i,j]>a[i,i]then b[i,j]:=1 else b[i,j]:=0;

writeln('--------') ; 

for i:=1 to n do
    begin 
        for j:=1 to n do
          begin
             write('  ',b[i,j]:3);
          end;
        writeln();
    end;
    
end.