Дан одномерный массив из целых чисел. Сколько элементов, значения которых равных 0 , и сколько элементов равных 2?

program xxx; const n=30; var    a : array [1..n] of integer;    i, kn, kd : integer; begin    readln(n);    kn:=0;    kd:=0;    for i:=1 to n do      begin        write('a[',i,']=');        readln (a[i]);        if a[i]=0 then kn:=kn+1;        if a[i]=2 then kd:=kd+1;      end;    for i:=1 to n do        write(a[i], ' ');    writeln();    writeln('Количество чисел равных 0 -',kn);    writeln('Количество чисел равных 2 -',kd);    readln(); end.