В одномерном массиве определить количество двух соседних положительных чисел - Turbo Pascal

Const nmax=100;
Var A:array[1..nmax] of integer;
    i, n, k: integer;
Begin
    Repeat
      write('Введите N: ');
      readln(n);
    Until (n>0)and(n<=nmax);
    writeln('Введите ',N,' элементов');
    For i := 1 to n do
     read(A[i]);
    k:=0;
    For i:=1 to n - 1 do
     if (A[i] > 0 ) and (A[i + 1] > 0) then inc(k);
    writeln('Число соседств из двух положительных элементов = ',k);
    readln;
End.