Задача: Программирование циклических процессов., Вычичисления в массиве. Опции

[Psychologist]

Здравствуйте!
Очень нужна ваша помощь, ни как не доходит решение задачки одной...
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1. Номер минимального по модулю элемента массива; {именно номер, а не значение}
2. Сумму модулей элементов массива, расположенных после первого отрицательного элемента.

Я тут заготовочку сделал. Помогите, плз...

Program MASSIV;
Var
   A : array [1..10] of Real; {объявление массива}
   i, j : Integer; {счётчики цикла}
   min : Integer; {номер минимального по модулю элемента}
   minus : Integer; {первй отрицательный элемент}
   sum : Integer; {сумма элементов массива}
Begin

   writeln ('vvedite 10 el. massiva');
   for i:=1 to 10 do begin
      readln (a[i]);
   end;

   min:=abs(min);

End.

[volvo]

откуда взялся х...

Вопроса "Куда делся А" не возникло при этом?