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

program massiv;
uses crt;
var
A: array [1..100, 1..100] of integer;
i,j: integer;
begin
clrscr;
for i:=1 to 5 do
for j:=1 to 5 do
begin
write ('vvedite A[',i,',',j,']: ');
readln (A[i,j]);
if i<j
then
A[i,j]:=0
end;
for i:=1 to 5 do
 begin
  for j := 1 to 5 do
    write(a[i,j]:4);
    writeln;
end;
end.