Вводится 10 чисел определить среднее арифметическое чисел попадающих в интервал от -5 до 18. на языке программирования паскаль

Var
  mean, count, n: real;
  i: byte;

begin
  mean := 0;
  count := 0;
 
  for i := 1 to 10 do
  begin
    readln(n);
    if (( n lt;= 18 ) and ( n gt;=-5 )) then
    begin
      mean := mean + n;
      count := count + 1;
    end;
  end;
 
  mean := mean / count;
  writeln(Среднее арифметическое = , mean);
end.