Упорядочить массив по невозрастанию!

[Cyber]

Комрады! Задали мне тут контрольные, 2 решил, на 3-ей встал.
Вот, собственно задание:
Упорядочить по невозрастанию массив, содержащий 25 вещественных чисел. Найти сумму и произведение положительных элементов массива и их количество. Использовать процедуру и функции.

А теперь скажите мне, многоуважаемые гуры программирования, что у меня не так?
Код:

var
  a: array [1..25] of Real;
  i:integer;
  s,e:real;
  Form1: TForm1;

implementation

{$R *.dfm}

function Poisk(i,k,m:Integer;buf:real):real;
      begin
          for i:= 1 to 25 do
            begin
            m:=i;
              for k:=i+1 to 26 do
              if a[k]>a[m] then m:=k;
              buf:=a[i];
              a[i]:=a[m];
              a[m]:=buf;
            end;
        end;

procedure se;
begin
for i:=1 to 25 do
if a[i]>0 then e:=1;
s:=s+a[i];
e:=e*a[i]
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Clear;
randomize;
for i:=1 to 25 do
a[i]:=random(-10);
poisk(1,0,0,0);
se;
for i:=1 to 25 do
listbox1.items.Add(FloatToStr(a[i]));
listbox2.items.Add(FloatToStr(s));
listbox2.items.Add(FloatToStr(e));
end;
end.

[savva]

Парень массивы начинаются обычно с 0.

procedure se; -что это такое?!

Сделай в консольном приложении без форм,проще будет разобраться,тебе.

function Poisk(i,k,m:Integer;buf:real):real; многовато параметров?зачем параметр buf?он же локальный,только в функции используется.на входе массив не отсортированный,а твои параметры должны быть локальными,а выход должен быть массив отсортированный.

[Stilet]

Парень массивы начинаются обычно с 0.

Это кто тебе такую "умный весчь" сказал? Массивы в Паскалеподобных языках могут начиняться с любого ординала.