Syntax / source code program perkalian dua matrik2x2

uses
SysUtils;
type matrix = array [1..2,1..2] of real;
procedure BacaMatrix(var M : matrix);
var i,j : integer;
begin
for i := 1 to 2 do
for j := 1 to 2 do
begin
write('masukkan nilai matrix (',i,',',j,') : ');
readln(M[i,j]);
end;
end;
procedure TulisMatrix(M : matrix);
var i,j : integer;
begin
writeln('Hasil Penjumlahan Matrix: ');
for i := 1 to 2 do
begin
for j := 1 to 2 do
write(M[i,j]:8:0);
writeln;
end;end;
procedure TambahMatrix(M1,M2 : matrix;
var M3 : matrix);
var i,j : integer;
begin
for i := 1 to 2 do
for j := 1 to 2 do
M3[i,j] := M1[i,j] + M2[i,j];
end;
var A,B,C : matrix;
begin
writeln;
writeln('<<<===================================>>>');
writeln('PROGRAM PENJUMLAHAN DUA BUAH MATRIX 2 X 2');
writeln;
writeln('Silahkan masukkan nilai matrix');
writeln;
writeln('MATRIX PERTAMA:');
BacaMatrix(A);
writeln;
writeln('MATRIX KEDUA:');
BacaMatrix(B);
writeln;
writeln('Tekan ENTER untuk melihat hasilnya');
readln;
TambahMatrix(A,B,C);
TulisMatrix(C);
writeln;
writeln('Sekarang...Coba TEKAN ENTER lagi'' Untuk keluar program^^');
readln;
end.