Поиск одномерного вектора из 40 элементов в векторе 424 элемента

[kds006]

Здравствуйте, дамы и господа.
Вопрос мой состоит в следующем.
Необходимо в векторе (по сути рандомная последовательность 0 и 1) из 424 элементов найти, и, если есть, посчитать количество вхождений вектора из 40 элементов (также рандомная последовательность 0 и 1).
Никак не соображу. Помогите, пожалуйста.
Программный код необходимо написать на Object Pascal

[Mad_Cat]

и в чем сложность7

{a:array[1..424]of byte;b:array[1..40] of byte;}
c:=0;
for i:=1 to 384 do begin 
k:=1;j:=i;f:=true;
 while j<=i+39 do begin
 if a[j]<>b[k] then begin f:=false; break;end;
 inc(j);inc(k);
end;
if f then c:=c+1;
end;
{c == количество вхождений}

[kds006]

Спасибо большое.
В чем сложность - не знаю, но подобное с repeat-until работать не хотело.