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

Лучший)

vart : text;a,k : integer;begink := 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.