Подсчитать число отрицательных и число положительных компонент вектора

Program   Name;
uses      crt;
const     c = 150;
var       Y           : array [1..c] of real;
          i,k,m,n,m1  : integer;
 
Procedure PolOtr;
begin
  if Y[i]>0 then
   begin inc(m);if m1=0 then m1:=i;end
         else
   if Y[i]<0 then inc(k);
end;
 
Procedure Vvod;
begin
    repeat
      write('Введите размер массива (1-',c,') = ');readln(n);
    until (n>0)and(n<=c);
    clrscr;m:=0;k:=0;m1:=0;
    writeln('Исходный массив:');
    for i:=1 to n do
     begin
       Y[i]:=random*200-100;
       write(Y[i]:9:3); if i mod 8 = 0 then writeln;
       PolOtr;
     end;writeln;writeln;
end;
 
BEGIN
    ClrScr;randomize;
    Vvod;
    write('Положительных элементов = ');
    if m>0 then
       begin
         writeln(m);writeln('Первый положительный элемент имеет номер = ',m1);
       end
           else
       writeln('НЕТ');
    write('Отрицательных элементов = ');
    if k>0 then
       writeln(k)
           else
       writeln('НЕТ');
    repeat until keypressed;
END.