Написать программу которая подсчитывает количество элементов равных к еденице!

Program mas1;var a:array[1..100] of integer;i,k,n:integer;Begin randomize;k:=0;writeln('Введите размерность массива',n); readln(n);for i:=1 to n doa[i]:=random(10)+1; readln;for i:=1 to n dobegin if a[i]=1 thenk:=k+1; end;writeln('k=',k);readln;End.