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

program pr;
type
arr=array[1..100,1..100]of integer;
var
x,y,z:integer;
a,b,c:arr;
procedure fill(var m:arr; f,y:integer);
var i,j:integer;
begin
 for i:=1 to x do
 begin
 for j:=1 to y do
 read(m[i,j]);
 writeln;
 end;
 readln;
end;
procedure show(m:arr; f,y:integer);
var i,j:integer;
begin
 for i:=1 to x do
 begin
  for j:=1 to y do 
  write(m[i,j]:4);
  writeln;
 end;
end;
procedure mult(a:arr; f,y:integer; b:arr; z:integer; var c:arr);
var i,j,k:integer;
    s:integer;
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
write('умножение ');
 begin
   write('Введите кол-во строк матрицы A:');
   readln(x);
   write('Введите кол-во столбцов матрицы A:');
   readln(y);
   fill(a,x,y);
   show(a,x,y);
   write('Введите количество столбцов матрицы B:');
   readln(z);
   fill(b,y,z);
   show(b,y,z);
   mult(a,x,y,b,z,c);
   writeln('Матрица C ');
   writeln;
   show(c,x,z);
   end;
   end.