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

var  f: text;
     c1,c2:char;
     s,code:integer;  {code-обязательный параметр процедуры val(перевод из строки в число)}
begin
 assign(f,'C:\1.txt');
  reset(f);
 
    read(f,c1,c2);
     case c1 of
      '0'..'9':;
     else
      begin
       write('Simvol ne chifra!');
       readln;
       halt;
       end;
     end;
 
     case c2 of
      '0'..'9': val(c2,s,code);
     else
      begin
       write('Simvol ne chifra!');
       readln;
       halt;
       end;
     end;
 
     if ( s mod 2=0) then
      writeln('Chislo chetnoe')
     else
      writeln('Chislo ne chetnoe');
 
 readln;
end.