Дана последовательность из 14 целых чисел. Определить, со скольких отрицательных чисел она начинается — Pascal(Паскаль)

uses crt;
const n=14;
var a,i,k:integer;
    f:boolean;
begin
clrscr;
writeln('Введите ',n,' целых чисел:');
k:=0;
readln(a);
if a>=0 then  write('Последовательность начинается не с отрицательного числа!')
else
 begin
  k:=1;f:=true;
  for i:=2 to n do
   begin
    readln(a);
    if a>=0 then f:=false
    else if f then k:=k+1;
   end;
  write('Последовательность начинается с ',k,' отрицательных чисел');
 end;
readln
end.