Работа с файлами Опции

[Stepa]

Здраствуйте, помогите пожалуйста решить задачку, что-то у меня не получается.

Дан символьный файл f. В файле f не менее двух компонент. Определить, являются ли два первых символа файла цифрами. Если да, то установить, является ли число, образованное этими цифрами, четным.

[volvo]

Как из 2-х символов "собрать" число?

Код

var ch1, ch2: char;
number: byte;
...
read(f, ch1, ch2);
if (ch1 in ['0'..'9']) and (ch2 in ['0'..'9']) then
 begin
   number := 10*(ord(ch1)-ord('0')) + (ord(ch2) - ord('0'));
   if odd(number) then {число нечетное }
   else { число четное }
 end
else
 { символы цифрами не являются }