Написать программу проверки наличия в исходном файле чисел от 18 до 27 - Turbo Pascal

assign(f,'data.dat');
reset(f); g:=True;
while not eof(f) and g do begin
  read(f,x);
  if (x>=18) and (x<=27) then g:=False;
end;
if g then WriteLn('Искомых чисел нет')
else WriteLn('Хотя бы одно искомое число есть');
close(f);