дана матрица A(n,n). Найти среднее арифметическое всех значенийа можно на делфи

Решение во вложении с комментариями и скриншотами результата работы программы. 
Программу проверил на Delphi 7. все работает.
Если что то не понятно, то пишите.
С уважением, Павел Зайцев

1. Так в файле как раз на Delphi 7 в консольном режиме написана программа к этой задаче.