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

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.