Помогите написать программу на языке Pascal ABC

const
N1 = 10;
N2 = 8;
Xn = 1;
Xk = 10;
H = 0.1;

var
d: array[1..N1, 1..N1] of integer;
c: array[1..N2, 1..N2] of integer;
i, j: integer;
s1, k1, s2, k2: integer;
z, x: real;

begin
randomize;
for i := 1 to N1 do
for j := 1 to N1 do
d[i, j] := -5 + random(10);

s1 := 0; k1 := 0;
for j := 1 to N1 do
for i := j + 1 to N1 do
if d[i, j] < 0 then
begin
s1 := s1 + d[i, j];
inc(k1);
end;

for i := 1 to N2 do
for j := 1 to N2 do
c[i, j] := -5 + random(10);

s2 := 0; k2 := 0;
for j := 1 to N2 do
for i := j + 1 to N2 do
if c[i, j] < 0 then
begin
s2 := s2 + c[i, j];
inc(k2);
end;

z := (s1 * s2) / (k1 + k2);

x := Xn;
while x <= Xk do
begin
writeln('z(', x:0:3, ') = ', (z / x):0:3);
x := x + H;
end;

write('Press Enter key for continue...');
readln;
end.

вот создание массива
program massiv2;
uses crt;
var
i,n,m,j:integer;
b:array[1..100,1..100] of integer;
BEGIN
randomize;
clrscr;
writeln;
write('Vvesti N i M: ');
readln(n,m);
writeln('Matrica B: ');
for i:=1 to n do begin
for j:=1 to m do begin
b[i,j]:=random(11)-5; write(b[i,j]:3); end;
writeln;
end;
readln;
end.
остальное сам, не сможешь - пиши