Программа автоматического тестирования модуля

[Afraid1]

Проверить, является ли данный файл текстовым файлом (содержащим только текст) /расширение файла
может быть любым/. Фрагмент кода:
program Proverka;
uses UnitTest;
var
f: file of byte;
bt: byte;
begin
assign(f, 'C:\Users\User\Desktop\zadanie.txt' );// вписать путь к читаемому файлу
reset(f);
while not eof(f) do
begin
read(f, bt);
end;
close(f);
end.
Как правильно реализовать дальше, не знаю, помогите сделать. (PascalABC.net)

[evg_m]

read(f, bt);

if bt in [...] then ... //а что собственно здесь(в этом байте) может быть (или НЕ может быть ни в коем случае)

(содержащим только текст)

http://www.delphibasics.ru/Set.php