Помогите кто может!!!

[Shatyn]

Помогите пожалуйста с задачей
Проверить, все ли элементы заданного массива A(N) положительны.

[Carbon]

const N=10;
var i:integer;
     A:array [1..N] of float;
     positive:boolean;

begin
  positive:=true;
  i:=1;
  while (i<=N) and positive do
  begin
    positive:=A[i]>0.0;
    i:=i+1
  end;
  if positive then
    writeln('Положительны')
  else
    writeln('Есть отрицательные')
end.