Составить программу, которая бы выполняла умножение матриц A и B

var a,b,c:array[1..10,1..10] of integer;
    n,m,l,i,j,k:integer;
begin
randomize;
repeat
write('Введите количество строк матрицы А от 2 до 10 l=');
readln(l);
until l in [2..10];
repeat
write('Введите количество столбцов матрицы А от 2 до 10 m=');
readln(m);
until m in [2..10];
repeat
write('Введите количество столбцов матрицы B от 2 до 10 n=');
readln(n);
until n in [2..10];
writeln('Матрица А');
for i:=1 to l do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=-30+random(121);
    write(a[i,j]:7);
   end;
  writeln;
 end;
writeln('Матрица B');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=-30+random(121);
    write(b[i,j]:7);
   end;
  writeln;
 end;
writeln('Матрица С');
for i:=1 to l do
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;
for i:=1 to l do
 begin
  for j:=1 to n do
  write(c[i,j]:7);
  writeln;
 end;
end.