Задача с подбрасыванием монетки

[bunukar]

Приветствую всех. Имеется следующая задача. При подбрасывании монетки n раз, нужно вычислить все серии, когда выпадает одна и та же сторона монетки(серия>=2) подряд. Например, подбросили 10 раз, нужно найти серии - решка:2,4 раз; орёл:2 раз. Когда орёл или решка выпадает 1 раз, серия не учитывается. Т.е. сколько раз одна сторона выпадает подряд.

Набросал такой код:

function brosok:boolean;
var
x:integer;
begin
randomize;
x:=random(2);

if x=1 then
begin
result:=true;
form1.Label1.Caption:='Орёл!';
form1.Label1.Font.Color:=clred;
orel:=orel+1;
end;

if x=0 then
begin
result:=true;
form1.Label1.Caption:='Решка!';
form1.Label1.Font.Color:=clgreen;
reshka:=reshka+1;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var raz: array of boolean;
i,n:integer;
komb:integer;
begin
//исходные данные
reshka:=0;
orel:=0;
komb:=5;

//количество бросков
n:=strtoint(edit1.text);
setlength(raz,n);
memo1.Lines.Add('Комбинации:');

//подбрасываем
for i:=1 to n do
begin
raz[i]:=brosok;
//проверка
if raz[i]= raz[i-1] then
begin
komb:=komb+1;
end;

end;
memo1.Lines.Add(inttostr(komb));
memo1.Lines.Add('Решка выпала '+inttostr(reshka));
memo1.Lines.Add('Орел выпал '+inttostr(orel));

end;

Но почему то при проверке i-го и i-1-го броска, проверка не работает. Прошу помочь выполнить именно саму проверку.

[ViktorR]

Функция

function brosok:boolean;
...
if x=1 then
begin
result:=true;
...
if x=0 then
begin
result:=true;
...

всегда возвращяет True.
Таким образом, массив заполнен только одним значением:

raz[i]:=brosok;

Как-то так, ...

[bunukar]

ViktorR
Вот же я не внимательный)) Спасибо. Сейчас попробую с проверкой)