Массив чисел (найти 4 идущих подряд чётных числа)

[SeregaKo]

Здравствуйте!

У меня такой вопрос:
я задаю 1000 случайных чисел, вывожу их в листбох, мне нужно подсчитать сколько раз встречается в этом массиве 4 идущих подряд (не)чётных числа, причём нужно указать кол-во элементов между ними и номер элемента, с которого он начался, например, первый блок чётных чисел встречается с 20 по 24 элемент массива, соответственно в label выводится надпись 1 блок начался с 20 элемента,
второй блок с 45 по 49 элемент массива, соответственно в label2 выводится надпись 2 блок начался с 45 элемента, кол-во элементов между первым блоком и вторым 21 , и так далее...
Для удобства можно создать, ещё один листбох, куда можно переписать элементы 1 листбоха, только заменив, соответствено чётные - 2 , нечётные -1.
Как это организовать всё? Помогите пожалуйста. Заранее спасибо.

[Ntlegend]

допустим m:array of integer в котором хранятся наши числа.. тогда делаем такой код для нахождения подряд идущих 4-х (не)чётніх чисел
k - это номур элемента с которого будем искать..

var i, j:integer;
begin
j:=0;
for i:=k to Length(m)-1 do
  begin
    if (m[i] mod 2)=1
     then 
       inc(j)
     else
       j:=0;
    if j = 4 then Break;
  end; 
i:=i-4;//это позицыя с конорой начинается блок
end;

дальше можна начать поиск с позцыи i+4.. и найти следующий блок.. и так до конца массива.. как пощитать растояние между началами блоков думаю расказывать лишнее..

[SeregaKo]

Чтобы найти полностью все блоки (по 4 числа (не)чётных в каждом), такой код???:
var i, j:integer;
begin
j:=0;
for i:=1 to Length(m)-1 do
begin
if (m[i] mod 2)=1
then
inc(j)
else
j:=0;
if j = 4 then Break;
end;
for i:=i+4 to Length(m)-1 do
if (m[i] mod 2)=1
then
inc(j)
else
j:=0;
if j = 4 then Break;
end;
label1.caption:=IntTostr(j);
end;