Multiplicação de Matriz

PROGRAM MultMatriz;
USES CRT;
VAR MAT: ARRAY [1..2,1..2] OF INTEGER;
    RESULTADO: ARRAY [1..2,1..2] OF INTEGER;
   M,N, MAIOR          : INTEGER;
BEGIN
 CLRSCR;
 FOR M:= 1 TO 2 DO
  BEGIN
   WRITELN ('DIGITE A LINHA ', M, ' DA MATRIZ');
   FOR N:= 1 TO 2 DO
   READLN (MAT[M,N]);
  END;
 MAIOR := MAT [1,1];
 FOR M:= 1 TO 2 DO
  BEGIN
   FOR N:= 1 TO 2 DO
   IF MAT [M,N] > MAIOR THEN MAIOR := MAT [M,N];
  END;
 FOR M:= 1 TO 2 DO
  BEGIN
   FOR N:= 1 TO 2 DO
    BEGIN
     RESULTADO[M,N] := MAIOR * MAT[M,N];
    END;
  END;
 WRITELN ('O RESULTADO DA MULTIPLICACAO DA MATRIZ FOI :',RESULTADO[M,N]);
 READKEY;
END.