Заменить отрицательные числа массива на 0, а положительные на 1.

program kursach;
uses crt;
const
m=10;
n=15;
var
b:array [1..m,1..n] of integer;
a:array [1..m,1..n] of integer;
sum:array [1..n] of integer;
otr:array [1..n] of integer;
i, j, c, d, l, k, x, y, e, f: integer;
begin
{
k - min random;
l - max random;
B[i,j] - основной массив;
A[e,f] - двоичный массив;
Sum[c] - массив суммы столбца;
otr[d] - массив количества отрицательных сисел столбца;
x - вспомогательное число для цикла суммы;
y - вспомогательное число для цикла отрицательныз чисел;
}
clrscr;
randomize;
k:=-10;
l:=10;
      for i:=1 to m do               {zapolnenie randomnimi chislami}
          for j:=1 to n do
              b[i,j]:=trunc((l-k+1)*random+k);
              write('  Matrix B:');
              writeln;
              writeln;
      for i:=1 to m do
           begin
                for j:=1 to n do     {vivod matrici 10x15}
                write(b[i,j]:4);
                writeln;
           end;
 
 
 
 
 
 
    writeln;
    writeln;
    write('Summa stolbca:');
    writeln;
    writeln;
    
    
 x:=1;
repeat                               {cikl summi stolbca}
       begin
       for j:=1 to m do
                  Sum[x]:=Sum[x]+b[j,x];
                  x:=x+1;
                  end;
          until x>n;
For c:=1 to n do
  write(sum[c]:4);
 
 
    writeln;
    writeln;
    write('kolichestvo otricatelnix chisel v stolbce:');
    writeln;
    writeln;
 
y:=1;
repeat                                   {cikl kolichestva otr chisel stolbca}
begin
      for j:=1 to m do
      if b[j,y]<0 then inc (otr[y]);
 
     y:=y+1;
     end;
     until y>n;
       for d:=1 to n do
       write(otr[d]:4);
       writeln;
 
 
 
 
 
a[e,f]:=b[i,f]; { Так пробую - не получается:( }
 
end.

program zz;
const n=10; m=10;
var i,g:integer;
    a,b:array[1..n, 1..m] of integer;
begin
Randomize;
 for i:=1 to n do
  begin
   for g:=1 to m do
    begin
     a[i,g]:=Random(20000)-10000;
      if a[i,g]>=0 then b[i,g]:=1
                   else b[i,g]:=0;
 
     write(b[i,g]);
    end;
   writeln;
  end;
readln;
end.