Дан двумерный массив 5*5. Заменить нулем элементы, расположенные над побочной диагональю — Pascal(Паскаль)

Uses
 CRT;
Const
 n=5;
var
 a:array [1..n,1..n] of integer;
 i,j:integer;
begin
clrscr;
writeln('-: ');
randomize;
for i:=1 to n do
begin
 for j:=1 to n do
 begin
  a[i,j]:=random(10)-3;
  write(a[i,j]:3);
 end;
writeln;
end;
writeln;
for i:=1 to n do
for j:=1 to n do
 if (i+j<n+1) then
  a[i,j]:=0;
writeln;
writeln('-: ');
for i:=1 to n do
begin
 for j:=1 to n do
 begin
  write(a[i,j]:4);
 end;
writeln;
end;
readkey
end.