Как перемножить две матрицы — Pascal(Паскаль)

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c: array [1 .. 10, 1 .. 25] of integer;
  i, z: integer;
  s: string;
begin
  randomize;
  for i := 1 to 10 do
  begin
    for z := 1 to 25 do
      a[i, z] := random(50);
    b[i, z] := random(50);
  end;
  for i := 1 to 10 do
  begin
    for z := 1 to 25 do
      c[i, z] := a[i, z] * b[i, z];
  end;
  for i := 1 to 10 do
  begin
    memo1.Lines.Add(s);
    s := ' ';
    for z := 1 to 25 do
      s := s + inttostr(c[i, z]) + ' ';
  end;
end;

end.