Pascal/Turbo Pascal - Pascal, ayuda con procedimiento con una matriz

program matrizes;

  uses

     crt;

   const

      mx = 5;

      nx = 5;

   type

      matriz = array[1..mx,1..nx] of byte;

   var

     matrz : matriz;

     resu, nume : integer;

   function producto : integer;

   var

     n1, num3, nn, clg1, clg2 : longint;

     num : array[1..12] of integer;

     se, w : integer;

    begin

       write('   Entra Numero Entero : ');

       readln(n1);

       producto := 0;

       clg1 := n1 mod 10;

       nn := n1;

       num3 := 0;

       clg2 := 0;

       w := 1;

       while nn > 0 do

       begin

         num3 := nn mod 10;

         nn := nn div 10;

         clg2 := (clg2 * 10) + num3;

         se := 0;

         se := clg2 mod 10;

         if se mod 2 = 0 then

       else

          begin

            num[w] := se;

            w := w + 1;

          end;

       end;

        num3 := 0;

        for se := 1 to w - 1 do

        num3 := num3 + num[se];

        producto := num3;

        writeln;

    end;

   procedure presenta_matriz(a : matriz);

   var

     vv, gg : integer;

   begin

       for vv := 1 to nx do

       begin

         for gg := 1 to mx do

         begin

            write('  ',a[gg,vv]);

         end;

         writeln;

       end;

   end;

   procedure elimina_central(d : matriz);

   var

     p, c, t : integer;

   begin

      for c := 1 to nx do

        for t := 1 to mx do

        d[t,c] := 1;

     writeln('   La Matriz Es ');

     writeln;

     presenta_matriz(d);

     writeln;

     c := 0;

     t := round(nx / 2);

     for p := 1 to nx do

     d[c + p,t] := 0;

     writeln('  La Borrada queda ');

     writeln;

     presenta_matriz(d);

   end;

  begin

     clrscr;

     resu := producto;

     writeln(' Producto De Los Digitos Impares Es : ',resu);

     writeln;

     elimina_central(matrz);

     readkey;

  end.