Написать программу, которая вычисляет, сколько раз введенное с клавиатуры число встречается в массиве. Массив заполняется через random

var a:array[0..10000] of integer;k,i,x,n:integer;begin read(n); for i:=1 to n do read(a[i]); read(x); for i:=1 to n do if a[i]=x then k:=1+k; write(k); end.