Задача на двухмерный массив, Задачка среднего уровня сложности на двухмерный массив Опции

[V1P]

Добрый день.Если можете,то помогите мне выяснить два вопроса:
1.Дана квадратная матрица A[N,N].Записать на место отрицательных элементов матрицы нули,а на место положительных - единицы.Вывести на печать нижную треугольную матрицу в общепринятом виде.

 Program z1;
uses crt;
Var
   k,I,J,N : Integer;
A:array [1..100,1..100] of Integer;
Begin
clrscr;
Writeln ('Введи размерность матрицы');
readln (N);
writeln('vvedi 3na4eniya matrici');
For i:=1 to n do begin
For j:=1 to n do
a[i,j]:=random(10)-5;
end;
For i:=1 to n do begin
For j:=1 to n do write(a[i,j]:4);writeln;
end;
writeln('*****');
For i:=1 to n do begin
For j:=1 to n do begin
If a[i,j]<0 then begin;a[i,j]:=0;end;
If a[i,j]>0 then begin;a[i,j]:=1;end;
end;end;

.
Вопрос: а как мне вывести на печать нижную треугольную матрицу в общепринятом виде?
2.{Cовсем другая задача} Нужно заполнить матрицу в виде:
1 2 3 ... n-2 n-1 n
2 1 2 ... n-3 n-2 n-1
3 2 1 ... n-4 n-3 n-2
. . . ... . . .
n-1 n-2 n-3 ... 2 1 2
n n-1 n-2 ... 3 2 1