Критерий серий

[Veryn4ik1993]

Здравствуйте!Можете ли вы мне помочь?Мне нужно проверить мой генератор псевдослучайных чисел на критерий серий: вот тут о нем написано там ссылка внизу не пойму его вообще!
вот мой генератор:

program m;
var i,N: integer;
f : array[1..N] of integer;
begin
i := 2;f[1] := 1;f[2] := 1;N:=1000;
while (i < N) do
begin
inc(i);
f[i] := (f[i-1] + f[i-2]) mod 10;
end;

http://omop.su/article/11/980392.html
хотя бы подсказать как можно это сделать