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

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.