Одномерный массив Delphi

[Начинающий програм]

Всем доброго времени суток! Помогите пожалуйста исправить ошибки.

Условие.
В одномерном массиве, состоящем из n вещественных элементов вычислить:
1) Сумма отрицательных элементов массива.
2) Произведение элементов массива расположенных между max и min элементами.
3) Упорядочить элементы массива по возрастанию методом простого выбора.

   1: begin
       s:=1;
       for i:=1 to n do
       if a[i]=0 then
       s:=s+a[i];
       writeln('s=',s)
      end;

   2: begin
       max:=a[1];
       min:=a[1];
       for i:=2 to n do
       if a[i]>max then max:=a[i];
       if a[i]<min then min:=a[i];
       p:=1;
       for i:=1 to n do
       if (a[i]>min) and (a[i]<max) then
       p:=p*a[i];
       writeln('p=',p)
      end;

   3: begin
       for i:=1 to n do
       if (a[i]<a[i+1]) and (a[i+1]<a[n]) then
       writeln('a[i]<a[i+1]<a[n]');
       writeln(a[i]<a[i+1]<a[n])
      end;

[viron]

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

[viron]

2:
var
  maxIndex, minIndex: Integer;
begin
       max:=a[1];
       min:=a[1];

       for i:=2 to n do
       begin
         if a[i]>max then 
          begin
             max:=a[i]; 
             maxIndex:= i;
          end;
         if a[i]<min then 
            begin
                min:=a[i];  
                minIndex:= i;
            end;
       end;

       p:=1;
      
       if minIndex < maxIndex then
         for i:=minIndex to maxIndex do
           p:=p*a[i]
       else
          for i:=maxIndex to minIndex do
            p:=p*a[i]

       writeln('p=',p)
end;

[Mad_Cat]

  writeln(a[i]<a[i+1]<a[n] )

шо за бред?

[Начинающий програм]

знаю что бред, я просто не знаю как сделать 3 вариант. Подскажите пожалуйста как?

[Ghost of Night]

Содя по коду
3.

begin
 for i:=0 to n do
  writeLn(a[i]),' ');
end;

[viron]

3) Упорядочить элементы массива по возрастанию методом простого выбора.

Нашел один простенький алгоритм сортировки:

1. Просматривая массив от первого элемента, найти минимальный элемент и поместить его на место первого элемента, а первый — на место минимального.

2. Просматривая массив от второго элемента, найти минимальный элемент и поместить его на место второго элемента, а второй — на место минимального.

3. И так далее до предпоследнего элемента.

const
  SIZE = 10;

var
  Form1: TForm1;
  A: array[1..SIZE] of Integer;
  min: Integer;
  i, j: Integer;
  temp: Integer;
  Str: String;

implementation

uses Math;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Str:= '';

  // Запонение массива случайными числами
  for i:= 1 to SIZE do
    A[i]:= RandomRange(10, 90);

  for i:= 1 to SIZE do
    Str:= Str + IntToStr(A[i]) + '  ';

  Str:= Str + IntToStr(A[i]) + #13;

  for i:= 1 to SIZE-1 do
  begin
    min:= i;

    { Поиск минимального элемента в части от A[i+1] до A[SIZE]}
    for j:= i+1 to SIZE do
      if A[j] < A[min] then
        begin
          temp:= A[j];
          A[j]:= A[min];
          A[min]:= temp;
        end;

  end;


  for i:= 1 to SIZE do
    Str:= Str + IntToStr(A[i]) + '  ';

  Label1.Caption:= Str;

end;

end.