С помощью процедуры переписать четные элементы двумерного массива в одномерный

Program Awesome;
 
TYPE massiv = ARRAY [1..10, 1..20] of integer;
vector = ARRAY [1..200] of integer;
 
var
A: massiv;
B: vector;
n,m,i,j,k: integer;
 
Procedure WetPussy (n1,m1: integer; G:massiv; V:vector; var index: integer);
 var i1,j1: integer;
             
  
          begin {procedure}
              
              index:=0;
          
              FOR i1:=1 to n1 DO
              FOR j1:=1 to m1 DO
              
              if G[i1,j1] MOD 2=0 then
                 begin
                 inc(index);
                 end;
                 V[index]:=G[i1,j1];
 
                 end;{procedure}
                 
                 begin{main}
                     writeln('Введите размер массива');
                      readln(n,m);
                      
                    FOR i:=1 to n DO
                     FOR j:=1 to m DO
                      begin
 
                     writeln('Введите элемент À[',i,',',j,' ]');
                     readln(A[i,j]);
                     end;
                     
                          WetPussy (n,m,A,B,k);
 
                          For i:=1 to k DO
                           writeln(' B[',i,' ]', B[i]);
                                    end. {main}

Procedure WetPussy (n1,m1: integer; G:massiv; var V:vector; var index: integer);

type massiv = array [1..10, 1..20] of integer;
     vector = array [1..200] of integer;
procedure WetPussy (g:massiv;n1,m1:integer;var v:vector; var k1:integer);
var i1,j1: integer;
begin {procedure}
k1:=0;
for i1:=1 to n1 do
for j1:=1 to m1 do
if g[i1,j1] mod 2=0 then
 begin
  inc(k1);
  v[k1]:=g[i1,j1];
 end;{procedure}
end;
var a: massiv;
    b: vector;
    n,m,i,j,k: integer;
begin{main}
writeln('Ââåäèòå ðàçìåð ìàññèâà');
readln(n,m);
for i:=1 to n do
for j:=1 to m do
 begin
  write('Ââåäèòå ýëåìåíò a[',i,',',j,']');
  readln(a[i,j]);
 end;
WetPussy (a,n,m,b,k);
if k=0 then write('Íåò ÷åòíûõ ýëåìåííòîâ')
else
 begin
  writeln('Ìàññèâ ÷åòíûõ ýëåìåòîâ');
  for i:=1 to k do
  writeln(' b[',i,' ]', b[i]);
 end;
end. {main}