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

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.