Вывести на печать нижнюю треугольную матрицу [Паскаль]

[pionerka]

Дана квадратная матрица .Записать на место отрицательных элементов нули,а на место положитнльных единицы.Вывести на печать нижнюю треугольную матрицу в общепринятом виде.

var m:array [1..100,1..100] of integer;
n,i,j,a,b:integer;

begin
randomize;
writeln('razmer ');readln (n);
writeln('diapazon');readln(a,b);
writeln('ishodnaja');
for i:=1 to n do
begin
for j:=1 to n do begin
m[i,j]:=random(b-a+1)+a;
write(m[i,j]);
end;
writeln;
end;

for i:=1 to n do begin
for j:=1 to n do
if m[i,j]<0 then m[i,j]:=0 else m[i,j]:=1;
end;
writeln('rezultat');
for i:=1 to n do begin
for j:=1 to n do
write(m[i,j]);
writeln;
end;
writeln('treugol');
//вот здесь никак не могу додумать решение.

[ОДИНОЧЕСТВО В СЕТИ]

а что имеется в виду под

нижнюю треугольную матрицу

так ?

 for i:=1 to n do
 begin
  for j:=1 to n do
   if j<=i then write(m[i,j]:6); /
  Writeln;
 end;

[pionerka]

Да,всё заработало.Спасибо.