Найти сумму значений элементов, которые меньше полусуммы наименьшего и наибольшего значений

var
    a : Array[0..254] Of ShortInt;
    i, n, minID, maxID : Byte;
    sum : Integer;
    halfSum : Single;
begin
    repeat
        Write('n=');
        ReadLn(n);
    until (n <> 0);
    Randomize;
    minID := 0; maxID := 0; Dec(n);
    for i := 0 to n do
    begin
        a[i] := Random(215) - 105;
        Write(a[i]:5);
        if (a[minID] > a[i])
        then
            minID := i
        else
            if (a[maxID] < a[i])
            then
                maxID := i;
    end;
    WriteLn;
    halfSum := (a[maxID] + a[minID]) / 2;
    WriteLn('halfSum=', halfSum:0:1);
    sum := 0;
    for i := 0 to n do
        if (a[i] < halfSum)
        then
            Inc(sum, a[i]);
    WriteLn('sum=', sum);
end.

var
    a : Array[Byte] Of ShortInt;
    i, minID, maxID : Byte;
    sum, n : Integer;
    halfSum : Single;
 
 
    repeat
        Write('n[1..255]=');
        ReadLn(n);
    until (n in [1..255]);