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

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 =  4
m =  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

  ответ надо продемонстрировать рисунком, я не умею на компьютере, поэтому рисую такую схему,как разместить зайцев в прямоугольной клетке.

З -это заяц,их должно быть 5:

                                                     Три зайца по углам и два у стенок по одному.

          З                     З                   Это задача для малышей,ее каждый ребенок знает.

 

                            

                                 З

 

          З             З

                                               

#include <cstdlib>
#include <iostream>

using namespace std;

int main(int argc, char *argv[])
{
    int n;
    cout<<"Введите количество элементов массива."<<endl;
    cin>>n;
    int mas1[n];
    int mas2[n];
    
    for(int i=0; i<n; i++){
    mas1[i] = rand()%100; //Заполняем массив случайными числами от 0 до 100
    if(mas1[i]%10 == 4) {
                 mas2[i]=mas1[i]/2;
                 cout<<"Замена! ";
                 }
    else {cout<<"\t";
         mas2[i]=mas1[i];
         }
    cout<<mas1[i]<<'\t'<<mas2[i]<<endl;
    }
    system("PAUSE");
    return EXIT_SUCCESS;
}