Giúp em với ạ Cho tệp songuyên.imp gồm nhiều dòng mỗi dòng chứa một số nguyên hãy cho biết có bảo nhiêu số lẻ và đu a ra ngoài màn hình

uses crt;
var f:text; i,n,d:longint; a:array[1..10000000]of longint;
begin
clrscr;
   assign(f,'songuyen.imp');reset(f);
      while not(eof(f)) do 
         begin inc(n); readln(f,a[n]); end;
   close(f);
      for i:=1 to n do 
         if a[i] mod 2=1 then inc(d);
      writeln('Co ',d,' so le');
end.

program bai_giai;
uses crt;
var f:text;
    n,d:longint;
begin
    clrscr;
    Assign(f,'songuyen.inp');  reset(f);
    d:=0;
    while not eof(f) do
        begin
            readln(f,n);
            if n mod 2=1 then d:=d+1;
        end;
    write(d);
    close(f); readln;
end.