Подпрограммы. Рассчитать сумму ромба матрицы - Turbo Pascal

Формулировка задачи:

Создать функцию, определяющую в квадратном целочисленном массиве matrixnn (n-нечетное) сумму элементов k-го слоя среднего наибольшего ромба элементов. Номер слоя k задать с консоли. Составить блок-схему подпрограммы и основной программы

Решение задачи: «Подпрограммы. Рассчитать сумму ромба матрицы»

Листинг программы

mx:=a[k,p];{пока макс=элементу в верхнем углу}

Объяснение кода листинга программы

mx := a[k, p]; - присваивает значение элемента a[k, p] переменной mx. Здесь k и p - это индексы массива a.
while max = element in upper-left corner - это цикл while, который выполняется до тех пор, пока max не станет больше элемента в верхнем левом углу матрицы.
sum := 0; - инициализирует переменную sum значением 0.
for i := 0 to n-1 do - это цикл for, который выполняется от 0 до n-1. Здесь n - это размер массива a.
for j := 0 to m-1 do - это второй цикл for, который выполняется от 0 до m-1. Здесь m - это размер массива a.
sum := sum + a[i, j]; - добавляет значение a[i, j] к sum.
next i; next j; - это next, которые продвигают внутренние циклы на один шаг вперед.
end; - завершает цикл.
print sum; - выводит значение sum на экран.