обмен элементов квадратной матрицы местами

[ГениальныйИнФормат]

Помогите пожалуйста.
Дана квадратная матрица. N<=10. Нужно поменять местами максимальный элемент главной диагонали с минимальным элементом ,расположенным среди элементов, стоящих под главной диагональю.
Буду благодарен за помощь.

[Stilet]

Показывай как вводишь матрицу.

[iBuTTHead]

Алгоритм:
1) Находишь максимальный эллемент который находится на главной диагонали (i=1,n)

for i:=1 to n do
if a[i,i]>max then
begin
max:=a[i,i]
maxi:=i;
end

2) Находиш минимальный Эллемент ниже главной диагонали.

for i:=2 to n do
for j:=1 to (n div 2) do
if a[i,j]<min then
min:=a[i,j]

3) смена значений.

a[i,j]:=a[i,j]+a[maxi,mai];
a[maxi,maxi]:=a[i,j]-a[maxi,maxi];
a[i,j]:=a[i,j]-a[maxi,maxi];

Написано на скорую руку не проверено. Только идея и проблемные участки кода. Удачи.

[ГениальныйИнФормат]

спасибо большое