Матрицы. Не могу найти ошибку.

 program Zk_r_2;
Type matr=array[1..6,1..8] of real;
procedure Enter(n,m:integer;name:char;Var Z:matr);
var i,j:integer;
begin
writeln('vvedite',name,n,'*',m);
for i:=1 to n do
for j:=1 to m do
read (Z[i,j]);
readln;
end;
 
procedure Vich(n,m:integer;Var Z:matr;var k:integer);
var i,j:integer;
Var s,p:real;
begin
writeln('matrica Z:');
k:=0;
s:=0;
p:=1;
for i:=1 to n do
begin
for j:=1 to m do
begin
if (Z[i,j])<0 then
begin
s:=s+Z[i,j];
p:=p*Z[i,j];
end;
end;
end;
if s<p then
k:=k+1;
writeln;
end;
 
procedure Output(k:integer;s,p:real);
begin
Writeln('строк,где сумма отрицательных элементов меньше их произведения: ',k);
Writeln('сумма отрицательных элементов: ',s);
Writeln('произведения отрицательных элементов: ',p);
end;
 
Var A,B:matr;
kA,kB:integer;
s:real;
pA,pB:real;
begin
Enter(6,5,'A',A);
Enter(4,8,'B',B);
Vich(6,5,A,kA);
Vich(4,8,B,kB);
Output(kA,s,pA);
Output(kB,s,pB);
readln;
end.

program Zk_r_2;
Type
  matr= array [1..6,1..8] of real;
 
procedure Enter(n,m: integer; name: char; Var Z: matr);
var
  i,j:integer;
begin
  writeln('vvedite',name,n,'*',m);
  for i:=1 to n do for j:=1 to m do
  //read (Z[i,j]);
  //readln;
  z[i,j]:= (Random-0.5)*10
end;
 
procedure Vich(n,m: integer; Var Z: matr; var k: integer; var s,p: real);
var
  i,j: integer;
  s1,p1: real;
begin
  writeln('matrica Z:');
  k:=0;
  s:=0;
  p:=1;
  for i:=1 to n do begin
    s1:=0;
    p1:=1;
    for j:=1 to m do if (Z[i,j])<0 then begin
      s1:=s1+Z[i,j];
      p1:=p1*Z[i,j];
    end;
    if s1<p1 then k:=k+1;
    s:=s+s1;
    p:=p*p1
  end;
  writeln;
end;
 
procedure Output(k: integer; s,p: real);
begin
  Writeln('строк,где сумма отрицательных элементов меньше их произведения: ',k);
  Writeln('сумма отрицательных элементов: ',s);
  Writeln('произведение отрицательных элементов: ',p);
end;
 
procedure Show(Z: matr; n,m: integer);
var
  i,j: integer;
begin
  for i:=1 to n do begin
    for j:=1 to m do write(Z[i,j]:6:2);
    writeln
  end
end;
 
Var
  A,B:matr;
  kA,kB:integer;
  sA,sB,pA,pB:real;
begin
  Randomize;
  Enter(6,5,'A',A);
  Enter(4,8,'B',B);
  Show(A,6,5);
  writeln;
  writeln;
  Show(B,4,8);
  Vich(6,5,A,kA,sA,pA);
  Vich(4,8,B,kB,sB,pB);
  Output(kA,sA,pA);
  Output(kB,sB,pB);
  readln;
end.