Perkalian Matriks

uses wincrt;
type
larik=array[1..25,1..25] of real;
var
i,j,k:byte;
m,n,l:byte;
A,B,C:larik;
begin
clrscr;
write('Baris matriks pertama? '); readln(m);
write('Kolom matriks pertama/ baris matriks kedua? '); readln(n);
write('Kolom matriks kedua? '); readln(l);
writeln;
writeln('Matriks yang 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;
writeln('Matriks yang 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;
writeln('Perkalian Matriks');
for i:=1 to m do
begin
for j:=1 to n do
begin
C[i,j]:=o;
for k:=1 to l do
C[i,j]:=C[i,j]+A[i,k]*B[k,j];
end;
end;
clrscr;
writeln('Hasil Perkalian Matriks');
writeln;
for i:=1 to m do
begin
for j:=1 to l do
write(C[i,j]:5:0);
writeln
end;
end.