Дан одномерный массив Х1,…,Хn. Подсчитать среднее арифметическое элементов, не лежащих на отрезке [c,d] — Pascal(Паскаль)

program pr1;
var a:array[1..100] of real;//описание массива вещ. тип
    n,i,kol:byte;
    sr:real;
    c,d:real;
begin
  writeln('Vvedite n');//ввод размерности массива
  readln(n);
  for i:=1 to n do
  begin
    writeln('Vvedite ',i,' element massiva');//ввод i-го элемента массива
    readln(a[i]);
  end;
  writeln('Vvedite interval [c,d]');//ввод интервала [c,d]
  readln(c,d);
  sr:=0;//обнуляем среднее
  for i:=1 to n do
  if (a[i]<c)or(a[i]>d) then begin//проверка на не принадлежность эл.массива отрезку [c,d]
                              sr:=sr+a[i];//суммируем эл-т массива
                              inc(kol);//считаем количество эл-ов, не в отрезке [c,d]
                             end;
  sr:=sr/kol;//делим сумму эл-ов, на их кол-во, получаем при этом среднее эл-ов вне отрезка [c,d]
  writeln('Srednee- ',sr:10:3);//выводим среднее
end.