Viết chương trình thực hiện đếm xem trong tệp ‘c:\songuyen.txt’ chứa bao nhiêu số nguyên?

var f: text; 

       i: word; a: integer;

Begin

    Assign(f, ‘c:\songuyen.txt’); reset(f);

    i:=0;

    While not eof(f) do

        Begin

           If eoln(f) then readln(f);

           Read(f, a); inc(i);

        End;

    Write(‘co ‘,i,’ so nguyen’);

    Readln

End.