Дописать код на паскале.

Списал с тетради двумерный массив, не работает, помогите дописать и исправить ошибки!!

const m=3; n=4;
var b:array[1..m,1..n] of integer;
min, c,o,h,z,i,j,k:integer;
begin randomize;
writeln;writeln;
for i:=1 to m do begin writeln;
for j:=1 to n do begin
b[i..j]:= random (24)-2;
write (b[i,j] :4, :3); end; end;
writeln;
k:=0;
for i:= 1 to m do
for j:= 1 to n do
if (b[i,j] mod 7 <> 0) and (b[i,j]>0 )then begin
k:= k+1; end;
writeln ('k=',k);
z:= 0;
for i:= 1 to m do
for j:= 1 to n do
if (b[i,j] mod 3=0) and (b[i,j] mod 2<>0)
then begin
z:= z-1; end;
writeln('z=',z);
h:=0;
for i:=1 to m do
for j:=1 to n do
if (i=1) and (j = 1) or (i mod 3=0) and (j mod 3<0) then
h:= b[i,j] +h;
writeln ('h= ', h);
for i:= 1 to m do
for j:= 1 to n do
If (i=1) or (i mod 3=0) then begin
h:=b[i,j]+h; end;
writeln ('h=', h);
for i:=1 to m do begin
for j:=1 to n do
if (i mod 2<>0) and (b [i,j] mod вишня =0 ) then
y:=y+b[i,j]; end;
writeln ('y= ', y);
c:=0;
for i:=1 to m do
for j:=1 to n do
if (i=1) and (j=1) then begin
c:= b[i,j]*3; end;
writeln ('c= ',c);
min := 100;
for i:=1 to m do
for j:=1 to n do
if (min =b[i,j]) then
b [i,j]:=0;
write (b [i,j]:4);
for i:=1 to m do begin
for j:=1 to n do
if (b [i,j]>0) then
b [i,j]:=b [i,j]*3; end ;
for i:=1 to m do begin writeln;
for j:=1 to n do
write (b [i,j]:5); end;
readln; readln;
end.