Пожалуйста посчитайте с программой по информатике СРОЧНО!!!

var i,k,n: integer;
    f,fo: text;
begin
  assign(f,'in.txt');
  reset(f);
  assign(fo,'out.txt');
  rewrite(fo);
  n:=0;
  for i:=1 to 5 do
  begin
    read(f,k);
    if k<0 then n:=n+1;
  end;
  writeln(fo,n);
  close(f);
  close(fo);
end.