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

[Sorinka]

В общем дали задачку, а я запуталась свосем
Помогите решить!

Дан массив, содержащий N элементов. Написать подпрограмммы, выполняющие следующие действия:

* Перестановку элементов массива в обратном порядке
* вычеслить суммы а[1]+a[1]*a[2]+a[1]*a[2]*a[3]+...
* Определение элементов массива, разность модулей которых имеет наибольшее значение
* Определение значение, которое встречается среди элементов массива максимальное число раз, и вычисление количества вхождений
* Упорядочение элементов массива по возраствнию

Подскажите пожалуйста, как хотя бы первые два пункта сделать...
Очень нужно! Я попыталась сделать первый, но что-то не выходит.
Нужно, чтобы в СтрингГрид1 добавлялась строка и в ней был переставленный в обратном порядке массив...

Исходник:

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.ColCount:=StrToInt(Edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j: integer;
begin
 randomize;

    for i:=0 to StringGrid1.ColCount - 1 do
          for j:=0 to StringGrid1.RowCount - 1 do
             begin
               StringGrid1.Cells[i,j]:=inttostr(random(100));
             end;
end;


procedure TForm1.Button3Click(Sender: TObject);
var
a:array[1..9] of integer;
i,t,n:integer;
begin
n:=StrToInt(Edit1.Text);
    for i:=1 to n-1 do
      if a[i]<a[i+1] then
        begin
          t:=a[i];
          a[i]:=a[i+1];
          a[i+1]:=t;
          stringGrid1.Cells[StringGrid1.RowCount,i]:=FloatToStr(i);

end;
end;
end.

[maladoy]

1

for i:=1 to (n div 2) do
         begin
              {запоминаем значение одного из элементов массива, которых мы хотим поменять местами}
              temp:=x[i];
	      {меняем местами}
              x[i]:=x[n-i+1];
              x[n-i+1]:=temp;
         end;

2

p:=1;
s:=0;
for i:=1 to n do begin
p:=p*a[i];
s:=s+p;
end;
label1.caption:='Cумма равна='+intTostr(s);

5

for i := 1 to n - 1 do
begin P := A [ i ] ; k := i ;
for j := i + 1 to n do
If A [ i ] < P then begin P := A [ i ] ; k := j end;
A [ k ] := A [ i ] ; A [ i ] := P
end

[Sorinka]

Ано... Спасибо...
Но когда пытаюсь вставить первый код в программу, пишет ошибку:
[Fatal Error] Internal error: BC1993

[Sorinka]

Помогитее, лююдиии!!!!!! не получается