Паскаль.Легкие задания на массивы

[KEF]

Помагите пожалусто.
Массивы
1. Найти минимальный из положительных элементов массива.
2. Упорядочить элементы массива по убыванию и вычислить произведение первого и последнего элементов.
3. Вставить 2 перед каждым элементом массива A(N), большим заданного числа В.

[Abbatik]

1.

min:=9999;
for i:=1 to n do begin
if a[i]>0 then if a[i]<min then min:=a[i];
end;
writeln('min=',min);

[madmot]

2. Сортировка по УБЫВАНИЮ

{......................................}
for i:=1 to n-1 do
begin
  k:=i;
  x:=a[i];
  for j:=i+1 to n do
    if a[j]>x then 
    begin 
      k:=j; x:=a[k]; 
    end;
  a[k]:=a[i]; a[i]:=x;
end;
{......................................}