Найти произведение положительных элементов каждой строки массива

uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;
     matr=array[1..nmax] of mas;
procedure Vector(mt:matr;y:byte;k:byte;var v:mas);
var i:byte;
begin
writeln('Вектор строки ',k,':');
for i:=1 to y do
 begin
  v[i]:=mt[k,i];
  write(v[i],' ');
 end;
writeln;
writeln;
end;
var a:matr;
    v1,v2,v3,v4:mas;
    m,n,i,j,k:byte;
    p:longint;
begin
clrscr;
randomize;
repeat
write('Количество строк от 4 до ',nmax,' n=');
readln(n);
until n in [4..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(6)-3;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
k:=0;
for i:=1 to n do
 begin
  p:=1;
  for j:=1 to m do
   begin
    if a[i,j]>0 then p:=p*a[i,j];
    if a[i,j]=0 then k:=k+1;
   end;
  writeln('Произведение положительных в строке ',i,' = ',p);
 end;
writeln;
writeln('Количество нолей=',k);
write('Press Enter...');
readln;
Vector(a,m,1,v1);
Vector(a,m,1,v1);
Vector(a,m,1,v1);
Vector(a,m,1,v1);
readln
end.