Pascal/Turbo Pascal - Ayuda ejercicio sencillo de pascal.

{Algo como esto te ayudara}

program matriz_prod;

 uses

    crt;

  type

     tmatriz = array[1..2,1..2] of integer;

   var

    maz1, maz2, mazr : tmatriz;

    u, u1, u2 : integer;

    resultado : integer;

   procedure cargamatrizes;

   begin

      for u := 1 to 2 do

        for u1 := 1 to 2 do

        begin

           clrscr;

           writeln('Matriz 1');

           write('Matriz = ',u,'-',u1,' : ');

           readln(maz1[u,u1]);

        end;

      for u := 1 to 2 do

        for u1 := 1 to 2 do

        begin

           clrscr;

           writeln('Matriz 2');

           writeln;

           write('Matriz = ',u,'-',u1,' : ');

           readln(maz2[u,u1]);

        end;

   end;

   procedure toma_producto(p1, p2 : tmatriz);

   var

      i : integer;

   begin

       for i := 1 to 2 do

        for u := 1 to 2 do

          for u1 := 1 to 2 do

          mazr[i,u] := mazr[i,u] + maz1[i,u1] * maz2[u1,u];

    end;

    procedure muestra_producto;

    begin

       writeln;

       for u := 1 to 2 do

       begin

          for u1 := 1 to 2 do

          begin

          write('   ',mazr[u,u1]);

          end;

          writeln;

        end;

    end;

   begin

       clrscr;

       cargamatrizes;

       toma_producto(maz1, maz2);

       muestra_producto;

       readln;

   end.