Perkalian Dua Matriks

program Perkalian_Matriks;
uses wincrt;
type
larik= array [1..10,1..10] of integer;
var
i,j,k,m,n,o: integer;
A,B,C: larik;
begin
writeln (' "SELAMAT DATANG DI PROGRAM PERKALIAN MATRIKS " ');
writeln ('===============================================================');
writeln;
writeln;
writeln;
write('Ketikkan banyak baris matriks A: ');
read(m);
write('Ketikkan banyak kolom matriks A / baris matriks B: ');
read(n);
write('ketikkan banyak kolom matriks B: ');
read(o);

for i:=1 to m do
begin
for j:= 1 to n do
begin
write('A[',i,',',j,']= ');
read(A[i,j]);
end;
end;

for j:=1 to n do
begin
for k:= 1 to o do
begin
write('B[',j,',',k,']= ');
read(B[j,k]);
end;
end;

clrscr;
writeln('Bentuk Matriks A adalah: ');
for i:= 1 to m do
begin
for j:= 1 to n do
begin
write (A[i,j]: 4);
end;
writeln;
end;

writeln;
writeln('Bentuk Matriks B adalah: ');
for j:= 1 to n do
begin
for k:= 1 to o do
begin
write(B[j,k]: 4);
end;
writeln;
end;

writeln;
writeln;
writeln;
writeln('Perkalian martiks A dan matriks B adalah: ');
for i:= 1 to m do
begin
for j:= 1 to o do
begin
C[i,j]:= 0;
for k:= 1 to n do
C[i,j]:= C[i,j]+(A[i,k]*B[k,j]);
write(C[i,j]: 4);
end;
writeln;
end;
end.