Кто первый подскажет?

Program try;
uses crt;
type mas=array[0..200] of integer;
var
   i:integer ;
   Mas4islGlob:mas;
   MasBukvGlob:mas;
   MasPassGlob:mas;
Procedure SlivMassivov(var MasPassForm,Mas4islForm,MasBukvForm:mas; l,m,r:integer);
   var i,j,k,z:integer;
       a2     :mas;
   begin
   z:=r-l+1;
   i:=l;
   j:=m;
   k:=1;
   while k <= z do
                  begin
                  if (j>r) or ((i<m)and(Mas4islForm<MasBukvForm[j])) then
                                                                       begin
                                                                       a2[k]:=Mas4islForm;
                                                                       i:=i+1;
                                                                       end
                                                                 else
                                                                 begin
                                                                 a2[k]:=MasBukvForm[j];
                                                                 j:=j+1;
                                                                 end;
                  k:=k+1;
                  end;
   i:=1;
   for i:=1 to z do
                   begin
                   MasPassForm:=a2[k];
                   write(MasPassForm,'!');
                   i:=i+1 ;
                   end;

   end;
Begin
SlivMassivov(MasPassGlob);{<= Здесь пишет Error 87: "," expected}
readln;
End.