Определить, есть ли в данном массиве две соседних положительных пары и найти номер первой

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,k,p:byte;
begin
clrscr;
repeat
write('Размер массива четное число n=');
readln(n);
until (n in [1..max])and(n mod 2=0);
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
i:=1;k:=1;p:=0;{начало массива, пар пока 1, номер=0}
while (i<=n)and (p=0) do{пока не конец массива и не нахли 2 пары}
{если нашли, запоминаем номер пары}
if (a[i]>0)and(a[i+1]>0)and(a[i+2]>0)and(a[i+3]>0) then p:=k
else{иначе}
 begin
  i:=i+2;{переходим к следующей}
  k:=k+1;{считаем пары}
 end;
if p=0 then write('Двух соседних положительных пар нет')
else
 begin
  writeln('Две соседние положительных пар есть');
  write('номер первой=',p);
 end;
readln
end.