Составить программу на паскале.
Сформировать двумерный массив, состоящий из положительных и отрицательных элементов. Заменить положительные элементы-единицей, а отрицательные- нулем

begin  var n:=ReadInteger('n = ');  var m:=ReadInteger('m = ');  Writeln('Исходная матрица:');  var a:=MatrRandom(n,m,-20,20);   a.Println(4);  for var i:=0 to a.RowCount-1 do    for var j:=0 to a.ColCount-1 do      if a[i,j]>0 then a[i,j]:=1 else a[i,j]:=0;  Writeln('Измененная матрица:');  a.Println(4)end.Пример:n =  4m =  5Исходная матрица:   7  -8  -7  -5  -7   2   4  -3  -2 -13  14   5 -12   9  20  12  11  18  -3   7Измененная матрица:   1   0   0   0   0   1   1   0   0   0   1   1   0   1   1   1   1   1   0   1