Вычислить произведение матриц

program perenm;
uses crt;
type mm=array[1..40,1..40]of longint;
var a,b,c:mm;
    x,y,z:integer;
 
procedure Zapolnenie(var m:mm; x,y:integer);
var i,j:integer;
begin
 for i:=1 to x do
 for j:=1 to y do
 m[i,j]:=random(10)+1;
end;
 
procedure Vyvod(m:mm; x,y:integer);
var i,j:integer;
begin
 for i:=1 to x do
 begin
  for j:=1 to y do write(m[i,j]:2,' ');
  writeln;
 end;
end;
 
procedure Peremnozhenie(a:mm; x,y:integer; b:mm; z:integer; var c:mm);
var i,j,k:integer;
    s:longint;
begin
 for i:=1 to x do
 for j:=1 to z do
 begin
  S:=0;
  for k:=1 to y do
  S:=S+a[i,k]*b[k,j];
  c[i,j]:=S;
 end;
end;
 
begin
 clrscr;
 write('Vvedite razmernost'' massiva A(x,y) x>y :');
 readln(x,y);
 Zapolnenie(a,x,y);
 Vyvod(a,x,y);
 write('Vvedite kol-vo stolbcov massiva B(y,z) y<z :');
 readln(z);
 Zapolnenie(b,y,z);
 Vyvod(b,y,z);
 Peremnozhenie(a,x,y,b,z,c);
 writeln('-----Rezul''tat-----');
 Vyvod(c,x,z);
 readln;
end.