[BoRoV]

У тебя не были исправлены:

Код:

// перемножаем матрицы
  For i:= 1 to m-1 do
    For j:= 1 to q-1 do

// выводим значение в результирующую матрицу
   for i:=1 to m-1 do
   begin
     for j:=1 to q-1 do

Там ты получаешь значения с 0, а тут читаешь с 1.