ВЫЧЕСЛИТЬ МАТРИЦУ АВ-ВА, pascal почти не знаю нужна помощь!!! Опции

[многорассмотрительствующий]

Даны квадратные матрицы А и В порядка n. Получить матрицу АВ-ВА.
Перемножение матриц я видел, а тут заглох. Нужна помощь.
Или ссылка. А может я туплююю

[volvo]

Во-первых, чего тегами не пользуешься?

Во-вторых, выводить матрицы можно и покрасивее:

procedure viewing (in_arr : DArray; X,Y : integer; Comment : String);
var i,j : integer;
begin
  GotoXY (X,Y); Writeln (Comment);
  for i:= 1 to high (in_arr) do begin
    gotoxy(X, Y + i);
    for j:= 1 to high (in_arr[1]) do write(in_arr[i,j]:cell);
  end;
end;

(теперь по правому краю выравниваются как положительные, так и отрицательные числа)

Ну, и наконец, объясни, зачем тебе вся эта игра с high(in_arr02) и high (in_arr[1])? Не проще было бы использовать Size?