Двумерные массивы в Паскале.

[hohol90]

Помогите пжл...

Дан массив A[7,7]. построить массив B(7) по следующему правилу: B(I) присвоить 1, если в I-ой строке массива представляют возрастающую последовательность, в противном случае B(I) присвоить 0.

Буду очень благодарен.

[IT-man]

for i:=1 to 7 do
begin
b[i]:=1;
for j:=1 to 6 do
if a[i,j]>a[i,j+1] then b[i]:=0;
end;

[hohol90]

спасибо, все теперь доделаю