возведение матрицы в степень

[Kanzann]

нигде не нашёл рабочей программы решил настучать сам (матрица квадратная)

{$F+}
Program st;
   Const
     razmax=50;
   Type
     massiv=array[1..razmax,1..razmax] of integer;
     proc=Procedure(i,j,m:integer; matr1,matr2:massiv; var matr3:massiv);
   Var
     b,i,j,n,p,k,l,raz:integer;
     a,c,h:massiv;
   Procedure Umn(i,j,m:integer; matr1,matr2:massiv; var matr3:massiv);
     Begin {Umn}
       for p:=1 to i do
	 for k:=1 to j do
	   for l:=1 to m do
	     matr3[p,k]:=matr3[p,k]+matr1[p,l]*matr2[l,k]
     end; {Umn}
   Procedure Stepen(e:integer; pr:proc; var matr:massiv);
     Begin {Stepen}
     for b:=1 to n-1 do
       begin
	 umn(raz,raz,raz,h,a,c);
	 h:=c;
       end;
     End; {Stepen}
   Begin 
     writeln('Vvedite razmernost');
     readln(raz);
     writeln('Vvedite matricy razmernosty (',raz,',',raz,')');
     for i:=1 to raz do
       for j:=1 to raz do
	 begin
	   write('A[',i,',',j,']=');
	   read(a[i,j]);
	 end;
     writeln('Isxodnaia matrica');
     for i:=1 to raz do
       begin
	 for j:=1 to raz do
	   write(a[i,j]:4);
	 writeln
       end;
     write('Vvedite stepen >1 ');
     read(n);
     h:=a;
     Stepen(n-1,umn,h);
     writeln('Matrica v stepeni ',n);
     for i:=1 to raz do
       begin
	 for j:=1 to raz do
	   write(h[i,j]:4,' ');
	 writeln
       end;
   End.

но что то напутал по видимому со второй процедурой,исправьте пожалуйста