Дан массив чисел A1,…,An. Выяснить, имеются ли в данном массиве 2 идущих подряд положительных элемента. Подсчитать количество таких пар- Pascal(Паскаль)

uses
  crt;
const
  n=10;
var
  a:array[1..n]of integer;
  i,c:integer;
begin
  clrscr;
  {задаем выводим считаем}
  writeln('Исходный массив:');
  write('[ ');
  c:=0;
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    if (i>=2) and (a[i]>0) and (a[i-1]>0) then
      inc(c);
    write(a[i],' ')
  end;
  writeln(']');
  writeln('Таких пар: ',c)
end.