Найти среднее арифметическое нечётных трехзначных чисел в массиве

{ Дан целочисленный массив из 30 элементов. Элементы массива могут
принимать целые значения от 0 до 1000. Напишите, пожалуйста, программу,
позволяющую найти среднее арифметическое нечётных трехзначных чисел,
записанных в этом массива. Если ни одного такого числа нет, нужно
вывести сообщение об этом.       }
 
const
  n=30;
var
  a:array[1..n] of integer;
  k,i,sum:integer;
  sr:real;
begin
  randomize;
  for i:=1 to n do
    begin
      a[i]:=random(1000);
      write(a[i]:5);
    end;
  k:=0;
  sum:=0;
  for i:=1 to n do
    if (a[i]>=100) and (a[i]<=999) and (odd(a[i])) then
      begin
        sum:=sum+a[i];
        k:=k+1;
      end;
  if k=0 then
    begin
      writeln;
      writeln('В массиве нет трехзначных чисел! Программа завершена.');
      exit;
    end;
  writeln;
  sr:=sum/k;
  writeln('Среднее среди трехзначных чисел: ',sr:8:2);
  readln;
end.