Найти матрицу C(n,m), равную векторному произведению матриц A и B

var
  a, b, c: array[,] of real;
 
begin
  
  var n := readinteger('N = ');  
  var m := readinteger('M = '); 
  var i := readinteger('I = ');
  SetLength(a, n, i);
  SetLength(b, i, m);
  SetLength(c, n, m);
  
  writeln;
  writeln('Ввод первого массива');
  for var k := 0 to n - 1 do
    for var g := 0 to i - 1 do
      a[k, g] := readreal('Введите элемент первого массива: '); 
  
  writeln;
  writeln('Ввод второго массива');
  for var k := 0 to i - 1 do
    for var g := 0 to m - 1 do
      b[k, g] := readreal('Введите элемент второго массива: '); 
  
  for var k := 0 to n - 1 do
  begin
    for var g := 0 to m - 1 do
    begin
      for var t := 0 to i - 1 do
        c[k, g] += a[k, t] * b[t, g];
    end;
  end;
  
  writeln;
  writeln('Искомый массив');
  c.Print;
  
end.