Дан символьный файл f. Определить, являются ли два первых символа файла цифрами (Pascal)

[vesdesvet]

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

program N_479;
uses crt;
const chisla{: set of integer }= ['0','1','2','3','4','5','6','7','8','9'];

type moi=record
     ss:string; sss: integer;
end;

var f: text; s: string; c: moi {ShortString{char};
    i, l: integer;
begin
    assign(f,'D:\4319-1\Zadania\479\Simvoli.txt');
    reset(f);
    while not(eof(f)) do begin
     readln(f,s);
     l:=length(s);
     for i:=1 to l do begin
      if s[1]  in chisla then begin
       if s[2] in chisla then begin
         c:=s[1]+s[2];
         writeln('Pervie 2 cifri v faile: ',c);
         if c div 2 =0 then writeln('Takje eto chislo javljaetsja chetnim')
         else writeln('Takje eto chislo javljaetsja ne chetnim'); readkey;
       end; end; end; end;
      close(f);
end.

Программа написана на Паскале.



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

[Serge_Bliznykov]

program N_479;
uses crt;

var f: text;
    c1, c2 : char;
    chislo, k :  integer;
begin
    assign(f,'D:\4319-1\Zadania\479\Simvoli.txt');
    reset(f);
    read(f,c1);
    read(f,c2);
    close(f); 
    if Not (c1 in ['0'..'9']) or Not (c2 in ['0'..'9']) 
       then WriteLn('Pervye dve komponenty faila ne yavlyayutsya ciframi!')
       else begin
          writeln('Pervie 2 cifri v faile: ',c1, c2);
          Val(c2, chislo, k);
          if (chislo mod 2) = 0 then writeln('Takje eto chislo javljaetsja chetnim')
          else writeln('Takje eto chislo javljaetsja ne chetnim');
       end;
     Readkey;
end.

[vesdesvet]

Благодарю огромнейше, всё работает!!!!!!!!!