Delphi-console-поиск однозначных чисел в файле

[trigger]

Доброго дня
Исходное задание
Найти число однозначных файлов, их сумму и среднее арифметическое
---
Сложность

Если в файле только 0 (ноль) или несколько 0(нолей) то алгоритм не может их зацепить ...хотя 0 - тоже однозначное чило.

алгоритм работает если есть числа от -9 до 9 и/или есть в файле числа отличные от однозначных

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;


var
  f: TextFile;
  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
   readln(f, temp);
     if ((temp >= -9) and (temp <= 9)) then
      begin
       count := count + 1;
       sum := sum + temp;
      end;
   end;
  if temp=0 then count:=count-1;
  close(f);
  if sum=0 then writeln('File empty')
    else
     begin
      writeln('Sum = ', sum);
      writeln('Count Elements = ', count);
      writeln('Average = ', sum / count);
      writeln('Press enter for exit...');
     end;
  readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Zedanger]

Дело в том, что сообщение о пустом файле выходит у тебя при сумме равной нулю.

if sum=0 then writeln('File empty')

А если файл состоит из одного 0 или несколько сумма будет всегда равна 0.
Поменяй эту строку на:

if count=0 then writeln('File empty')

И зачем эта строка

if temp=0 then count:=count-1;

Если последние однозначное число было 0, то число однозначных должно умечиться?