Подсчитать кол-во отрицательных чисел из 10 введенных с клавы (pascal abc.net)

Program n1;var a,i,k: integer;begink:=0;for i:=1 to 10 dobeginreadln(a);if a<0 then k:=k+1;end;write(k);end.