Дан массив из 20 элементов вводиться с клавиатуры , подсчитать количество отрицательных элементов

Var
  i,n:integer;
  a:array[1..20]of integer;
begin
for i:=1 to 20 do
  begin
  readln(a[i]);
  if a[i]<0 then n:=n+1
  end;
writeln('ответ: ',n)
end.