Вести n чисел, определить, сколько среди них положительных результатов отправить в переменную k — Pascal(Паскаль)

const Max=100;
var a:array[1..Max] of real;
    n,k,i:integer;
begin
  writeln('Введите количество чисел ');
  readln(n);
  for i:=1 to n do
    begin
      writeln('Введите число № ',i);
      readln(a[i]);
    end;
  k:=0;
  for i:=1 to n do
    if a[i]>0 then
      inc(k);
    writeln('Число положительных чисел равно ',k);
    readln;
end.