Задача: Малыш играет в морской бой

[Rusl92]

Не могли бы вы мне помочь
Малыш играет в "Морской бой"

Малыш играет в "Морской бой". Поле для игры представляет собой квадрат 10 x 10 клеток. На поле отмечены клетки, в которые Малыш уже стрелял. Однако пока он не попал ни в один корабль противника. Требуется определить максимальную длину корабля, который может поместиться в небитых клетках этого поля. Корабль представляет из себя прямоугольник ширины 1 и располагается горизонтально или вертикально. (Гарантируется, что на поле есть хотя бы одна небитая клетка.)

Входные данные:

Входной файл содержит 10 строк по 10 чисел в каждой, числа разделены пробелами. Число 1 означает, что в соответствующую клетку стреляли, число 0 – что в клетку не стреляли.

Выходные данные:

вывести одно число от 1 до 10 – максимальную возможную длину корабля.

Пример
input.txt


0 0 0 0 0 0 0 0 0 1
0 0 0 0 0 0 0 0 1 0
0 0 0 0 0 0 0 1 0 0
0 0 0 0 0 0 1 0 0 0
0 0 0 0 0 1 0 0 0 0
0 0 0 0 1 0 0 0 0 0
0 0 0 1 0 0 0 0 0 0
0 0 1 0 0 0 0 0 0 0
0 1 0 0 0 0 0 0 0 0
1 0 0 0 0 0 0 0 0 0

output.txt
9

Заранее спасибо!

[Викдон]

а вертикально можно распологать корабль?

[Rusl92]

я уже решил давно)

[Arigato]

Примерно так решили?

Max := 0;
for I := 1 to 10 do
begin
  CntI := 0;
  CntJ := 0;
  for J := 1 to 10 do
  begin
    if M[I,J] <> 0 then
    begin
      if CntI > Max then Max := CntI;
      CntI := 0;
    end else Inc (CntI);
    if M[J,I] <> 0 then
    begin
      if CntJ > Max then Max := CntJ;
      CntJ := 0;
    end else Inc (CntJ);
  end; {for}
  if CntI > Max then Max := CntI;
  if CntJ > Max then Max := CntJ;
end; {for}