в принципе правильно, вот только нет ввода
n и вместо оператора
read лучше использовать
readln imho, неплохо бы было выводить приглашение на ввод данных. размерность матриц лучше задавать через константу
Код:
const
R=500;
var
matrA: array[1..R,1..R] of integer;
ввод матриц я бы организовал процедурой
p. s. используйте тег CODE
