ПОЖААЛУЙСТА ПОМОГИИИТЕ!! 




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

var A: array[1..20, 1..20] of integer;m, n, k, i, j: integer;beginrandomize;repeatwrite('Введите число столбцов и строк через пробел: ');readln(n, m);until (n in [1..20]) and (m in [1..20]);for i := 1 to m do beginfor j := 1 to n do beginA[ i, j ] := random(19) - 9;write(A[i, j]:5);end;if odd(i) then writeln(' ') else writeln;end;writeln;writeln('Заменяем отрицательные числа на нули, положительные - на единицы:');writeln;for i := 1 to m do beginfor j := 1 to n do beginif A[ i, j ] <= 0 then A[ i, j ] := 0else A[ i, j ] := 1;write(A[i, j]:5);end;if odd(i) then writeln(' ') else writeln;end;end.p.s: не совсем понятно последнее задание - вывести нижнюю треугольную матрицу. Сделать новую или что?