Вычислить сумму модулей элементов массива, расположенных после первого отрицательного элемента

type
    TArray = Array[Byte] Of Double;
 
procedure InitArray(var ar: TArray; var n: Byte); //заполнение массива псевдослучайными числами
var
    i: Byte;
begin
    repeat
        Write('n='); ReadLn(n);
    until (n > 0);
    Randomize;
    for i := 0 to n - 1 do
    begin
        ar[i] := Random() * 50 - 25;
        Write(' ', ar[i]:0:2);
    end;
    WriteLn; WriteLn;
end;
 
function FindAbsMin(const ar: TArray; const n: Byte): Byte; //поиск минимума по модулю
var
    Result, i: Byte; //удалить Result, если компилятор ругается
begin
    Result := 0; //принимаем, что изначально первый элемент и есть минимумом
    for i := 1 to n - 1 do
        if (Abs(ar[Result]) > Abs(ar[i])) //проходим по всем остальным элементам и проверяем меньше ли они по модулю ранее найденного минимума
        then
            Result := i;
    FindAbsMin := Result + 1;
end;
 
function SumAfter1Neg(const ar: TArray; const n: Byte): Double;
var
    i: Byte;
    Result: Double; //аналогично
begin
    Result := 0; i := 0;
    while ((ar[i] > 0) And (i < n)) do //ищем первое отрицательное число
        Inc(i);
    for i := i + 1 to n - 1 do //суммируем все элементы после первого отрицательного
        Result := Result + ar[i];
    SumAfter1Neg := Result;
end;
 
procedure CompressArray(var ar: TArray; const n: Byte);
var
    temp: TArray;
    tempN, i: Byte;
    a, b: Double;
begin
    Write('a='); ReadLn(a);
    repeat
        Write('b=');
        ReadLn(b);
    until (b >= a);
    tempN := 0;
    for i := 0 to n - 1 do
        if ((ar[i] < a) Or (ar[i] > b)) //ищем элементы вне выбранного диапазона
        then
        begin
            temp[tempN] := ar[i]; //и переносим их в новый массив
            Inc(tempN);
        end;
    for i := tempN to n - 1 do
        temp[i] := 0; //забиваем пустые места нулями
    ar := temp; //пересохраняем массив
    for i := 0 to n - 1 do
        Write(' ', ar[i]:0:2); //и выводим
end;
 
var
    a: TArray;
    n: Byte;
begin
    InitArray(a, n);
    WriteLn('Min Abs ID: ', FindAbsMin(a, n));
    WriteLn('Sum after first negative: ', SumAfter1Neg(a, n):0:2);
    CompressArray(a, n);
end.