Двумерный масив

[Katmai]

В общем хочу в игре "Тетрис" реализовать бонусы.
Таким образом если сразу 2-пол удаляются то + 20(бонус) к общему счёту, если 3-то +30 и так до 5!

Поле тетриса такого вида :
0000000000
0000000000
0000000000
1111100111
1111100111
Где 1 это кубики, 0 - пустота, как описать так что бы когда у нас выстраиваеться 2 лин - еденичек то+ 20 к очкам ?!

Я пытался сделать так:

begin
if (stakan[stkh,j]=1) and (stakan[stkh-1,j]=1) then
scores:=scores+20;
 end;

stkh - высота масива

[ImmortalAlexSan]

вы же ведь знаете ширину поля? Если да, то используйте цикл FOR i:... to ... do где ... - начало и конец поля, а в цикл вставьте проверку: if массив[i]=1 then ...
else break

[Katmai]

Сделал что хотел !
Может кому-то поможет:

procedure bonus;
var i,j,c: integer;
begin
for i := 1 to stkh do
begin
c:=0;
     for j := 1 to stkw do
      if (stakan[i,j]>0) and (stakan[i-1,j]>0) then inc(c);
      if c = stkw then scores:=scores+20;
end;
end;

skth - высота
sktw-ширина
stakan - масив