Проверить является ли произведение матриц перестановочным. Pascal

Даны две матрицы А (3,3) и В (3,3). Проверить является ли их произведение перестановочным, т. е. А*В = В*А. Вычисление произведения оформить в виде процедуры.