Ошибка в функции

Program try;
uses crt;
type mas=array[0..200] of integer;
var
   i:integer ;
   Mas4islGlob: array [0..200] of integer;
   Procedure RandMas4isl(var Mas4islForm:mas );
   var i:integer;
       ch:longint;
   begin                    {Требуется заполнить массив случайными числами}
        for i:=1 to  200 do
                           begin
                           ch:=random(9);
                           Mas4islForm:=ch;
                           end;
   end;
Begin
RandMas4isl(Mas4islGlob);

for i:=1 to 100 do write(Mas4islGlob ,' ');
end.