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

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.