Целочисленный массив A(N) Паскаль

[manyhin]

Помогите пожалуйста с задачей
Дан целочисленный массив A(N), заданный датчиком случайных чисел в интервале (-105,109). Найти сумму значений элементов, которые меньше полусуммы наименьшего и наибольшего значений элементов данного массива.

Вот так получилось..но при введение отрицательного выдает ошибку

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.

Можете отредактировать где не правильно написано

[VIK_aka_TOR]

т.е. вы вводите "n" отрицательным числом?

1. n у вас типа byte, принимает числа от 0 до 255
2. а массив разве может задаваться отрицательным количеством элементов ?

как вариант поставить "защиту"

 
n: Integer;
...

repeat
        Write('n=');
        ReadLn(n);
    until (n > 0);

[manyhin]

Спасибо..то что надо)