Pascal ABC. Прошу вас, помогите с задачами. Итоговая контрольная. Тема-массивы

max:=a [ 1 ];
for i:=2 to 10 do
if a [ i ] > max then max:=a [ i ];
2. for i:=1 to 9 do
for j:=i+1 to 10 do
if a [ i ] < a [ j ] then
begin c:=a [ i ]; a [ i ] := a [ j ] ; a [ j ] :=c end;