Процедура: удалить элементы тех строк матрицы 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.

program n_1;
uses crt;
const lmax=10;
type matr=array [1..lmax,1..lmax] of integer;
type mass=array [1..lmax] of integer;
var    i,j,m,n,k,c,p,d,l,g:integer;A:matr; B:mass;
procedure vvod(var i,j,m,n,k:integer;A:matr; B:mass );
begin
writeln('Ââåäèòå ðàçìåð ìàòðèöû') ;
readln(n);
writeln('Ââåäèòå ðàçìåð ìàòðèöû')  ;
readln(m);
writeln('Ââåäèòå ìàòðèöó');
for i:=1 to n do
 for j:=1 to m do
read (A[i,j]);
writeln ('Ââåäèòå ìàññèâ') ;
read (k);
for i:=1 to k do
read (b[i]);
end;
Procedure vvod_1 (var A:matr; var B:mass);
var i,j,m,n,c,p,d,l,g,k: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:matr; l,c:integer; var p:integer);
var i,j:integer;
begin
p:=1;
for i:=1 to c do
  for j:=1 to l do
   p:=p*A[i,j];
 end;
begin
vvod(i,j,m,n,k,a,b);
vvod_1(a,b);
proizvedenie(a,l,c,p);
{òóò ÿ êàê ïîíèìàþ íóæíî âûçûâàòü ïðîöåäóðó âûâîäà?}
end.