Не выполняется функция

Program try;
uses crt;
type mas=array[0..200] of integer;
var
   i,nfact:integer ;
   Mas4islFact:mas;
   MasBukvFact:mas;
   MasPassFact:mas;
   RandMasFact:mas;
   cx:mas;
{Заполнение случайными числами 0..9 массива для числовой составляющей пароля}
   Procedure RandMas4isl(var Mas4islForm:mas;n:integer);
   var i:integer;
       ch:integer;
   begin
        randomize;
        for i:=1 to  n do
                           begin
                           ch:=random(9);
                           Mas4islForm:=ch;
                           write(Mas4islForm,'|');
                           end;
   end;
{Заполнение случ. числами 97..122 массива для буквенной составляющей пароля}
   Procedure RandMasBukv(var MasBukvForm:mas;n:integer );
   var b,s : set of 97..122;
       j,d : integer;
   begin
   randomize;
   b:=[97..122];
   s:=[];
   for j:=1 to n do
                     begin
                     repeat
                     d:=random(122);
                     until (d in b ) and not (d in s);
                     s:=s+[d];
                     MasBukvForm[j]:=d;
                     write(MasBukvForm[j],'/');
                     end;
   end;
{Cлияние двух описанных выше массивов}
   Procedure SlivMassivov(var MasPassForm,Mas4islForm,MasBukvForm:mas );
   var
       l,m,r:integer;
       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;
{Случайный выбор элементов!}
   Procedure RandSlivMas(var RandMasForm:mas);
   var i:integer;
       Mas4islFact:mas;
   begin
   randomize;
   for i:=1 to 30 do
                    begin
                    RandMasForm:=Mas4islFact;
                    write(RandMasForm,' @ ');
                    end;
   end;
Begin clrscr;
readln(nfact);

randomize;
RandMas4isl(Mas4islFact,nfact);
RandMasBukv(MasBukvFact,nfact);
SlivMassivov(MasPassFact,MasPassFact,MasPassFact);
RandSlivMas(RandMasFact);
readln;
end.