Работа с массивами. Объявление массивов. Изменение и чтение элементов массива

1) задача

var i, j, n, m: integer;
a: array [1..100] of integer;
begin
n:=10;
for i:=1 to n do
begin
a[i]:=1+random (99);
write (a[i]:4);
end;
writeln;
{какую сумму найти - это перед сортировкой}
writeln ('Сумма второго и пятого элементов несортированного массива = ', a[2]+a[5]);
for i:=1 to n do
for j:=1 to n do
if a[i] < a[j] then
begin
m:=a[i];
a[i]:=a[j];
a[j]:=m;
end;
for i:=1 to n do write (a[i]:4);
writeln;
{какую сумму найти - это после сортировки}
writeln ('Сумма второго и пятого элементов сортированного массива = ', a[2]+a[5]);
end.

2) задача

var i, j, n, m: integer;
a: array [1..100] of integer;
begin
n:=10;
for i:=1 to n do
begin
a[i]:=1+random (99);
write (a[i]:4);
end;
writeln;
for i:=1 to n div 2 do
for j:=1 to n div 2 do
if a[i] > a[j] then
begin
m:=a[i];
a[i]:=a[j];
a[j]:=m;
end;
writeln ('Первая половина массива по убыванию: ');
for i:=1 to n do write (a[i]:4);
m:=a[1];
a[1]:=a[n];
a[n]:=m;
writeln;
writeln ('Переставить в всем массиве первый и последний элементы');
for i:=1 to n do write (a[i]:4);

{
writeln ('Первая половина массива по убыванию: ');
for i:=1 to n do write (a[i]:4);
m:=a[1];
a[1]:=a[n div 2];
a[n div 2]:=m;
writeln;
writeln ('Переставить в сортированной части массива первый и последний');
for i:=1 to n do write (a[i]:4);
}
end.