Задание в Pascal (с подпрограммой)

[Anytka99]

Создать программу для определения количества отрицательное чисел из набора 5-и введенных пользователем целых чисел. Определение количества должно выполняться в подпрограмме.

[newerow1989]

function CountOtr(p:array of integer):integer;
var i:integer;
begin
   Result:=0;
   For i:=Low(p) to High(p) do
      If p[i]<0 then
         Result:=Result+1;
end;

var p:array[1..5] of integer;
    i:integer;
begin
   For i:=1 to 5 do
   begin
      Write('p[',i,'] = ');Readln(p[i]);
   end;
   Writeln('Count otr = ',CountOtr(p));
   Readln;
end.