Требуется посказка по директиве var

[loluser]

Надо решить задачу, нашел по ней код, но требуется дописать директивы var.

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

Код:

Max := 0;
for I := 1 to 10 do
begin
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}

[rubius2008]

VAR   <имена переменных разделенные запятыми>:<тип данных>;