Дан ряд целых чисел. Сколько отрицательных чисел стоит после первого нуля — Pascal(Паскаль)

uses crt;
var n,a,i,f,k:integer;
begin
clrscr;
write('Сколько чисел ввести? n=');
readln(n);
f:=0;k:=0;
for i:=1 to n do
 begin
  readln(a);
  if a=0 then f:=1;
  if (f=1)and(a<0)then k:=k+1;
 end;
write('После ноля отрицательных чисел=',k);
readln
end.