Вычислить сумму квадратов чисел, принадлежащие промежутку

const
    EPS = 0.0001;
var
    ar: Array[Byte] Of Real;
    i, n, cCount: Byte;
    sum, c, a, b: Real;
begin
    Randomize;
    repeat
        Write('Input n(>0)='); ReadLn(n);
    until (n > 0);
    Write('Original array:');
    sum := 0; cCount := 0;
    Write('Input A='); ReadLn(a);
    repeat
        Write('Input B='); ReadLn(b);
    until (b > a);
    Write('Input C='); ReadLn(c);
    for i := 0 to n - 1 do
    begin
        ar[i] := Random * 198 - 99;
        Write(' ', ar[i]:0:2);
        if ((Abs(ar[i] - c) < EPS) Or (ar[i] > c))
        then
            Inc(cCount);
        if ((a < ar[i]) And ((Abs(ar[i] - b) < EPS) Or (ar[i] < b)) And Odd(i))
        then
            sum := sum + Sqr(ar[i]);
    end;
    WriteLn;
    WriteLn('SUM=', sum:0:2);
    WriteLn('Count=', cCount);
end.

var
    ar: Array[Byte] Of Real;
    i, n, cCount: Byte;
    sum, c, a, b: Real;
begin
    Randomize;
    {тут идёт ввод значений, упростить не особо получится}
    Write('Input n(>0)='); ReadLn(n); //выкидываем проверку, доверяясь юзерю
    Write('Input A='); ReadLn(a);
    Write('Input B(>=', a:0:2, ')='); ReadLn(b); //аналогично
    Write('Input C='); ReadLn(c);
    Write('Original array:');
    sum := 0; cCount := 0;
    {тут тело цикла}
    for i := 0 to n - 1 do
    begin
        ar[i] := Random * 198 - 99;
        Write(' ', ar[i]:0:2);
        if (c <= ar[i]) //выкинем приближённое сравнение чисел с плавающей точкой (нехорошо, но "проще")
        then
            Inc(cCount);
        if ((a < ar[i]) And (a[i] <= b) And Odd(i)) //аналогично
        then
            sum := sum + Sqr(ar[i]);
    end;
    WriteLn;
    {вывод результатов, упрощать нечего}
    WriteLn('SUM=', sum:0:2);
    WriteLn('Count=', cCount);
end.