Втекстовом файле chisla.txt посчитать количество отрицательных чисел.

Var
t : text;
a,k : integer;

begin
k := 0;
assign (t,'chisla.txt');
reset(t);
 while Not Eof(t) do
  begin
   read (t,a);
   if a < 0 then
    k := k +1;
  end;
close(t);
writeln (k);
end.