Проверить, все ли элементы заданного массива положительны — Pascal(Паскаль)

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.