Незнаю, правильно ли понял условие... Ну в общем вот сделал так:
(массив случайно заполняется числами [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.