Задача про положительные групы элементов в массиве. Опции

[MeatCrash]

Дан одномерный массив целых чисел размерностью 20. Определите количество положительных груп в этом массиве. (Группой называется последовательность, состоящая из 2-х и более положительных чисел, находящихся рядом).

Я очень долго думал над этой задачей, но с логикой у меня туго. Вот то, что я успел сделать:

Program T_17_9;
Const
  Ebt=10;
Type
  Nah=array[1..Ebt]of real;
Var
  m:Nah;
  i,group:byte;
Begin
  For i:=1 To Ebt Do
    begin
      writeln('Vvedite element massiva pod nomerom: ',i);
      readln(m[i])
    end;
    group:=0;
  for i:=1 to Ebt do
    If (m[i]>0) and (m[i+1]>0) Then
      begin
        group:=group+1;

      end;
  writeln('koli4estvi polozitelnih grup ravno: ',group);
End.