Двумернй массив. Опции

[chicher]

Помогите:
Дан двумерный массив 6*6.
Надо определить номер первой по порядку строки, содержащей наибольшее число подряд идущих единиц. Считать, что такая последовательность единиц встречается один раз. :-[

[dushik]

Незнаю, правильно ли понял условие... Ну в общем вот сделал так:
(массив случайно заполняется числами [0..2])

Код

uses crt;
const
    x=6;
    y=6;
var
  mas                  :array[1..x,1..y] of integer;
  i,j,max,max1,k,n     :integer;
begin
    clrscr;
    max:=0; max1:=0;
    for i:=1 to y do
        for j:=1 to x do
            mas[i,j]:=random(3);
    for i:=1 to y do
        begin
             for j:=1 to x do
                 write(mas[i,j]);
             writeln;
        end;
    for i:=1 to y do
        begin
             for j:=1 to x do
             begin
                  if (mas[i,j]=1) then
                     for k:=j to x do
                         begin
                              if mas[i,k]=1 then
                                 max1:=max1+1
                              else
                                  break;
                         end;
                     if max1>max then
                        begin
                             max:=max1;
                             n:=i;
                        end;
                     max1:=0;
             end;
        end;
    writeln;
    writeln('maximum edinic ',max, ' v stroke ',n);
    readln;
end.