Массив: Заменить нулями все элементы, расположенные на побочной диагонали и ниже ее матрицы

program Q;
var a: array [1..7] of integer;
i:byte;
begin
randomize;
for i:=1 to 7 do
begin
a[i]:=random(50);
write(a[i], ' ');
end;
writeln;
for i:=1 to 7 do
begin
a[i]:=a[i]+2;
write(a[i], ' ');
end;
read(a[i]);
end.

program Q;
const n=4;
var a:array [1..n, 1..n] of integer;
i,j:byte;
 
begin
randomize;
for i:=1 to n do begin
for j:=1 to n do
begin a[i,j]:=random(50);
write(a[i,j], ' ');
end ;
writeln;
end;
readln(a[i,j]);
for i:=1 to n do begin
for j:=1 to n do
begin
if j>=n+1-i then a[i,j]:=0;
 write(a[i,j],' ');
 end;writeln; end;
readln(a[i,j]);
end.

program mas;
 uses crt;
const n=7;
var a: array [1..n] of integer;
 i:byte;
  begin
   randomize;
   writeln('èñõîäíûé ìàññèâ');
    for i:=1 to n do begin
      a[i]:=random(40);
        write(a[i], ' ');
                      end;
        writeln;
    writeln('ðåçóëüòèðóþùèé ìàññèâ');
         for i:=1 to n do
          begin
           a[i]:=a[i]*2;
             write(a[i], ' ');
          end;
        end.

Program Example;
uses crt;
Const n = 4; m = 4;
Type dmyarray = Array[1..n, 1..m] Of Integer;
Var A : dmyarray;
 
Procedure Init(Var x: dmyarray); {ïðîöåäóðà ôîðìèðîâàíèÿ ìàññèâà}
Var i, j : Integer;
Begin
For i:=1 To n Do
For j:=1 To m Do
x[i,j]:=-25+Random(51);
End;
 
Procedure Print(x: dmyarray); {ïðîöåäóðà âûâîäà ìàññèâà íà ýêðàí}
Var i, j : Integer;
Begin
For i:=1 To n Do
Begin {ââîä i-îé ñòðîêè ìàññèâà}
For j:=1 To n Do begin if j>=n+1-i then a[i,j]:=0; Write(x[i,j]:5); end;
Writeln; {ïåðåõîä íà íà÷àëî ñëåäóþùåé ñòðîêè}
End;
end;
 
Begin{îñíîâíàÿ ïðîãðàììà}
Init(A); {âûçîâ ïðîöåäóðû ôîðìèðîâàíèÿ ìàññèâà}
Writeln('Ìàññèâ À:');
Print(A); {âûçîâ ïðîöåäóðû âûâîäà}
Readln;
End.