Открытые массивы паскаль

[POCOMAXA]

Кто может посмотреть что не так в этой задаче. Компилятор ошибок не выдает и нормально запускает программу, но вот процедура задача_1 не работает(даже если в массиве есть элементы более 15, все равно выдает что их нету). Помогите кто знает.

program OtkrMass;
    { Скільки чоловік в кожному з відділів працювало більше 15 днів?--
	(найти количество елементов мвссива, значение которых большеи 15)}
uses
   crt;

const
   d = 10;

var
   Y: array[1..15] of integer;
   G: array[1..20] of integer;

procedure create(y: array of integer; nazvaOtdela: string);{_}
var
   i: integer;
begin
   randomize;
   for i := 0 to high(y) do
   begin
      y[i] := random(30);
   end;
   writeln('dlya otdela  ', nazvaOtdela, ' kolichestvo narabotanih dniv :');
   for i := 0 to high(y) do
   begin
      writeln(i + 1:2, ' - ',y[i]:4);
   end;
end;


procedure zadacha_1(ar: array of integer);{1}
var
   kol, i: integer;
begin
   kol := 0;
   for i := 0 to high(ar) do
   begin
      if ar[i] > 15 then kol := kol + 1;
   end;
   if kol = 0 then writeln('nikto izotdela ne rabotal bolee 15 dnei')
   else writeln(' v otdele', kol:3, ' cheloveka rabotali bolee 15 dnei');
end;


begin
	writeln('zadacha 1:');
	create(Y,'Y'); zadacha_1(Y);
	writeln;
	create(G,'G'); zadacha_1(G);
	readln; 
end.

[Mad_Cat]

procedure create(var y: array of integer; nazvaOtdela: string);{_}

[POCOMAXA]

Сообщение от Mad_Cat

procedure create(var y: array of integer; nazvaOtdela: string);{_}

спасибо! Одно слово пропустил и прога не функционировала.