Матрица,написать программу через процедуру Опции

[winson]

1.Даны целочисленные матрица A[1:N,1:M] и массив B[1:K]. Написать программу, которая удаляет элементы тех строк A, номера которых отсутствуют в массиве B, и вычисляет произведение элементов оставшихся строк. Вычисления оформить в виде процедуры.


Начал решать,но никак не могу её до конца доделать, нужна помощь...
Вот как начинал:
program n_1;
const lmax=10;
type matr=array [1..lmax,1..lmax] of integer;
type mass=array [1..lmax] of integer;
A:matr;
B:mass;
var i,j,m,n,k;
begin
writeln('Введите размер матрицы')
repeat
read(n,m)
until (n>0) and (m>0) and (n<=lmax) and (m<=lmax);
writeln('Введите матрицу');
for i:=1 to n do
for j:=1 to m do
read (A[i,j]);
repeat
read (k);
until (k>0) and (k<=lmax);
writeln ('Введите массив')
for i:=1 to k do
read (b[i]);
Procedure vvod (var A:matr; var B:mass);
var i,j,m,c,p,d,l,g:integer;
flag:boolean;
begin
d:=1;
g:=0;
for i:=1 to n do
begin flag:=false;
for l:=1 to k do
if i=b[k] then flag:=true;
if flag=true then
for p:=1 to m do begin
A[d,p]:=A[i,p];
d:=d+1;
end;
else g:=g+1;
end;
d:=1;
for i:=1 to g-1 do
for j:=1 to m do
c:=c-A[i,j];
writeln(d);
end;
procedure proizvedenie (var A(i:matr,l,c:integer,var p:integer);
vari,j:integer;
begin
p:=1;
for i:=1 to c
for j:=1 to l
p:=p*A[i,j];
end;
begin
vvod_matr(A,n,m);
vvod_mass(B,k);
{тут я как понимаю нужно вызывать процедуру вывода?}
end.