Пусть массив находится под переменной A и состоит из 10 ячеек. А число с клавиатуры N. Переменная x будет выступать в роли счетчика.

x:=0;

for i:=1 to 10 do if a[i]=n then x:=x+1;

writeln("Число совпадает",x,"раз");