Напишу ответ на Python-е (работать с ним в разы проще, нежели с Pascal). Я взял матрицу n*n, она квадратная, не требует дополнительной переменной, да и удобнее чем-то даже... (прикрепил скриншот с кодом и выводом компилятора, также прикрепил текстовый файл с самим кодом. Только будьте внимательны, когда будете его копировать/вставлять - не забывайте об отступах, руководитесь скриншотом):
