Perkalian Matriks

program perkalian;
uses wincrt;
type larik=array [1..10,1..10] of integer;
var i,j,k,m,n,l:integer;
a,b,c:larik;
begin
write('baris matriks pertama= ');readln(m);
write('kolom matriks pertama/baris matriks kedua = ');readln(n);
write('kolom matriks kedua = ');readln(l);
writeln;
write('nilai komponen matriks pertama = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(a[i,j]);
end;
writeln;
end;
write('nilai komponen matriks kedua = ');
for i:=1 to n do
begin
for j:=1 to l do
begin
write('nilai[',i,',',j,']?');readln(b[i,j]);
end;
writeln;
end;
for i:=1 to m do
begin
for j:=1 to n do
begin
c[i,j]:=0;
for k:=1 to l do
c[i,j]:=c[i,j]+a[i,k]*b[k,j];
end;
end;
writeln('hasil perkalian matriks');
for i:=1 to m do
begin
for j:=1 to l do

write(c[i,j]:9);
writeln;
end;
end.