Дана матрица А(4, 4)=((54, 81, 19, 43),(3, -44, 42, 51),( 76, 5, 29, -24),( 94, -92, -69, 28)). Найти в матрице максимальный элемент и уменьшить его на величину значения, находящегося на главной диагонали. ОТВЕТ: ((-40, 81, 19, 43),( 3, -138, 42, 51),( 76, 5, -65, -24),(94, -92, -69, -66)). Пожалуйста, помогите. При помощи Pascal

Ток на Питоне

A=[[54, 81, 19, 43],[3, -44, 42, 51],[ 76, 5, 29, -24],[ 94, -92, -69, 28]]maxi=A[0][0]for i in range(4):    for j in range(4):        maxi=max(maxi,A[i][j])for i in range(4):    for j in range(4):        if i==j:            A[i][j]=A[i][j]-maxi