Đếm số âm, dương trong tệp

Đề bài: Đếm số âm,dương trong tệp N phần tử

uses crt;
var  N,i,am,duong:word;
a:array[1..250] of integer;
f:text;

begin   assign(f,'dl.txt');reset(f);

        readln(f,N);
        for i:=1 to N do begin
                read(f,a[i]);
                if a[i] < 0 then inc(am)
                else    if a[i]<>0 then inc(duong);
                end;


        writeln('Tong so am la: ',am);
        writeln('Tong so duong la: ',duong);
        readln
end.