паскаль структура данных

[lunnamedl]

В заданном массиве A(N) поменять местами наибольший и наименьший элементы.
Определить, имеются ли среди элементов побочной диагонали заданной целочисленной матрицы A(N,N) числа, равные нулю.


помогите , за раннее спс

[IT-man]

2)

for i:=1 to n do
if a[i,i]=0 then begin  writeln('yes');break;end;