Pascal/Turbo Pascal - Arrays..contar filas y columnas nulas

{A ver esto te sirve}

 program longitudmatriz;

 uses

    crt;

  type

    lamatriz = array[1..10,1..10] of integer;

  var

    matriz : lamatriz;

    long, t, n : integer;

   function longitud_matriz_iguales(d : lamatriz) : integer;

   begin

      fillchar(matriz,sizeof(matriz),1);

     for t := 1 to 100 do

     begin

       if matriz[t,1] = 257 then

       n := 0

     else

       begin

       longitud_matriz_iguales := t - 1;

       break;

     end;

   end;

  end;

   begin

     clrscr;

     long := longitud_matriz_iguales(matriz);

     writeln('  La Longitud De La Matriz Es : ',long,' X ',long);

     readkey;

   end.