Помогите с прогой. Паскаль.Ввести массив, ввести кол-во элементов в массиве ( не через рандом). Ввести число. Найти сколько элементов равны этому числу. (ввод массива и кол-ва эл. Через процедуры)

У вас нет ввода самих элементов массива, но все равно спасибо)

Добавить одну строку забыл, извините)

var a:array [1..100] of integer; k,i,n,x:integer; begin k:=0; writeln('Введите количество элементов массива'); read(n); writeln('Введите число'); read(x); for i:=1 to n do begin read(a[i]); if a[i]=x then k:=k+1; end; writeln('Колиечество элементов равных числу ',x,' = ',k); end.