Правильно написать фрагмент кода.

[sinh]

Нужно написать следующее:
Пока k <> 144
для l=0 до 864
для p=l до 864
если (условие), то s:=s+1
если (s=6), то k:=k+1, s:=0
Синтаксис знаю плохо, помогите привести в соответствие.

        while k <> 144 do
        begin
        for l:=0 to 864 do    begin
        for p:=l to 864 do    begin
        if ((arr2.arr[l,0]=arr2.arr[p,0]) And
             (arr2.arr[l,1]=arr2.arr[p,1]) And
             (arr2.arr[l,2]=arr2.arr[p,2]))  then s:=s+1;
        if s=6 then  begin; k:=k+1; s:=0; end;
        end;
        end;
        end;

[Аватар]

Не мешало бы начальные значения для k задать обязательно, для s возможно, зависит от анализируемых значений в arr2.arr

[sinh]

У меня заданы: k:=0; s:=0;. Из цикла не выходит когда k становится равным 144.

[Аватар]

Если задано, то хорошо, просто в представленном фрагменте кода этого не заметно

[sinh]

Можно закрывать, перед 2-м for нужно было обнуление s поставить.