const m=100;

var i,j:Integer;
 matrix:array [1..m][1..m] of integer;

{ заполним матрицу }
Randomize;
for i:=1 to m do
 for j:=1 to m do
    matrix[i][j]:=random(100)-50;
   

for i:=1 to m do
 for j:=1 to m do
   begin
   if  matrix[i][j]>0 then  matrix[i][j]:=1;
   if  matrix[i][j]<0 then  matrix[i][j]:=-1;
   end;