Ранжирование и умножение масива Опции

[1111]

Люди помогите пожайлуста сделать задачу.
используя программу ранжирования(сортировки), найти произведение 3-х наименьших по модулю элементов массива Т=(2,-1,3,-2,1,5,-3,2,4,1) Распечатать массив до и после ранжирования . И ещё если несложно посмотри в чём у меня тут ошибка.
Задание
найти произведение элементов с чётными номерами массива

program proiz;
var
A:array[1..100] of integer;
p,i,n,m:integer;
BEGIN
repeat
        write('Vvedite razmernost masiva'); readln(n);
until n<=100;
p:=1;
for i:=1 to n do
       begin
          write('a[',i:2,']=');
readln(a[i])
       end;
  begin
  if a[i] mod 2=0 then
    p:=p*a[i];
   end;
  write('proizvedenie elementov= ',p);
readln;
end.

[Гость]

меня тоже интересует 1 задача в этой теме...