Задан двумерный массив (квадратная матрица). Сделать вывод всех элементов этой матрицы и при этом все элементы кроме элементов ниже главной диагонали заменить 0, а также элементы ниже главной диагонали заменить 1 — Pascal(Паскаль)

uses crt;
var
A: array [1..100, 1..100] of integer;
i,j,n: integer;
begin
clrscr;
write ('vvedite N: ');
readln (N);
for i:=1 to N do
for j:=1 to N do
begin
a[i,j]:=random(100)

write ('vvedite A[',i,',',j,']: ');
readln (A[i,j]);}
end;
for i:=1 to N do
 begin
  for j := 1 to N do
    write(a[i,j]:4);
    writeln;
end;
writeln;
for i:=1 to N do
for j:=1 to N do
begin
if i>j
then A[i,j]:=1
else A[i,j]:=0;
end;
for i:=1 to N do
 begin
  for j := 1 to N do
    write(a[i,j]:4);
    writeln;
end
end.