Массивы. Pascal

[Andrew5674]

Задача 1 В массиве размерностью N поменять местами элементы
1 и N,
2 и N-1,
3 и N-2, и т.д.
Например для массива
1, 2, 3, 4, 5, 6, 7, 8 ответ будет
8, 7, 6, 5, 4, 3, 2, 1.

Задача 2 Найти индекс максимального элемента массива. Найти индекс минимального элемента массива. Если таких элементов несколько, вывести все индексы

[grandmixer]

Задача 1:
const
n = 5;
var
a:array [1..n] of integer;
i,t:integer;
begin
for i:=1 to n do read(a[i]);
for i:=1 to n div 2 do
begin
t:=a[i];
a[i]:=a[n-(i-1)];
a[n-(i-1)]:=t;
end;
for i:=1 to n do write(a[i],' ');
end.

Задача 2:
const
n = 4;
var
a:array [1..n] of integer;
i,t:integer;
up,down:boolean;
begin
up:=true;
down:=true;
if n = 1 then writeln('невозможно определить')
else begin
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
begin
if a[i]<a[i+1] then down:=false;
if a[i]>a[i+1] then up:=false;
end;
if up then writeln('массив отсортирован по возрастанию');
if down then writeln('массив отсортирован по убыванию');
end;
if not up and not down then writeln('массив не отсортирован');
end.

[Andrew5674]

Огромное Спасибо)