Mnozenje Matrica

program MojProgram(input,output);

type Matrica = array [1 .. 10,1 .. 10] of real;

var A,B,C : Matrica;
    i,j,k,n1,m1,n2,m2 : integer;

procedure UnesiMatricu(Ime : char ; n,m : integer; var X:Matrica);
  begin
    for i:=1 to n do
      for j:=1 to m do
        begin
          write(Ime,'[',i,',',j,']= ');
          read(X[i,j]);
        end;
  end;

procedure PomnoziMatrice(X,Y : Matrica; x1,y1,y2 : integer; var Z:Matrica);
 begin
   for i:=1 to x1 do
     for j:=1 to y1 do
       begin
         Z[i,j]:=0;
         for k:=1 to y2 do
         begin
           Z[i,j]:=Z[i,j]+(X[i,k]*Y[k,j]);
         end;
       end;
 end;

procedure IspisiMatricu(X:Matrica;n,m:integer);
  begin
    for i:=1 to n do
    begin
    writeln;
      for j:=1 to m do
        begin
          write(X[i,j]:7:2,' ');
        end;
      end;
  end;

begin
  write('Unesi broj redova prve matrice ');read(n1);
  write('Unesi broj kolona prve matrice ');read(m1);

  write('Unesi broj redova druge matrice ');read(n2);
  write('Unesi broj kolona druge matrice ');read(m2);

  UnesiMatricu('A',n1,m1,A);
  UnesiMatricu('B',n2,m2,B);

  PomnoziMatrice(A,B,n1,m1,m2,C);
  IspisiMatricu(C,n1,m2);
  read;

end.