Безотлагательно 40 Баллов!!! Необходимо изменить программку так, чтоб все числа в

СРОЧНО 40 Баллов!!! Нужно поменять программку так, чтоб все числа в матрице ниже основной диагонали заменялись на единицы.

Программка:

program nol;


const n=5;


var a:array [1..n,1..n] of integer;


var i,j:integer;


begin


randomize;


for i:= 1 to n do begin


for j:=1 to n do begin


a[i,j]:=random(100);


end;


writeln;


end;


for i:=1 to n do


for j:=i+1 to n do a[i,j]:=0;


writeln('Матрица:');


for i:=1 to n do begin


for j:=1 to n do


write(a[i,j]:5);


writeln;


end;


end.