Дополнительное условие - работа с файлами

[trigger]

Программа
Найти среднее арифметическое значение однозначных чисел (нормально работает)
Дополнительное условие - если в файле нет чисел однозначных - ошибка
Обойти не получается это.


program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type MyFyle = file of real;
var
f: MyFyle;
sum, temp: real;
count: integer;
begin
assign(f, 'input.dat');
try
reset(f);
except
writeln('File not found or damaged. Press enter...');
readln;
end;
sum := 0;
count := 0;
while not (eof(f)) do
begin
read(f, temp);
if ((temp >= -9) and (temp <= 9)) then
begin
count := count + 1;
sum := sum + temp;
end;
end;
close(f);
writeln('Sum = ', floattostrf(sum, fffixed, 10, 5));
writeln('Count Elements = ', count);
writeln('Average = ', floattostrf(sum / count, fffixed, 10, 5));
writeln('Press enter for exit...');
readln;
end.