Подправить процедуру Опции

[NTL]

Вообщем,даны 2 массива, в 3-ий занести положительные эл-ты из этих 2-ух массивов. Кому не лень, посмотрите,пожалуйста

Procedure MyArray (M:massiv;var z1:array of integer;c:integer;var p:integer);
var i:integer;
begin
P:=0;
for i:=1 to c do
 begin
  if M[i]>0 then
   begin
    z1[p]:=M[i];
    p:=p+1;
  end;
 end
end;

--------
MyArray(X,Z,n,p1);
MyArray(Y,Z,n,p2);