помогите написать паскаль программу

var
    a: array [1..100, 1..100] of integer;
    b: array [1..100] of real;
    n, m, i, j, v: integer;
    p: boolean;
begin
    randomize;
    write('n m (<= 100)? ');
    readln(n, m);
    writeln('array A:');
    for i := 1 to n do begin
        for j := 1 to m do begin
            a[i, j] := random(101) - 50;
            write(a[i, j]:4);
        end;
        writeln;
    end;
    for j := 1 to m do begin
        v := 1;
        p := false;
        for i := 1 to n do
            if a[i, j] < 0 then begin
                p := true;
                v := v * a[i, j];
            end;
        if p then b[j] := v;
    end;
    write('array B:');
    for j := 1 to m do write(' ', b[j]:0:0);
end.

Я программированием не занимаюсь, поэтому как приделать отрицательные значения я не в курсе.
var
a: array [1..20,1..20] of integer;
b: array[1..20] of integer;
x,y:integer;
begin
for x:=1 to 20 do
for y:=1 to 20 do
вот тут не знаю, я просто рандом сейчас напишу, но он не будет давать отрицательных чисел.
a[x,y]:=random(100);
for x:=1 to 20 do
for y:=1 to 20 do
if a[x,y]<0 then
b[x]:=b[x]+a[x,y];
writeln;
end.