Одномерный массив(поиск элемента)

[BLackJackxxx]

в массиве нужно найти элемент заданный пользователем и подсчитать их кол-во
помогите, в конце не могу написать строку команды
program massive;

uses crt;
var
i: integer;
a: array [1..10] of integer;
s: integer;
x: integer;
max: integer;
begin;
randomize;
clrscr;
for i:=1 to 10 do
  begin
  A[i]:=random(100);
  write(A[i],' ');
  end;
writeln('введите элемент поиска');
readln(x);
if x:={не могу понять что здесь}  then
end.

[MoBLer]

Вот немного подправил

uses crt;
var
n,i,s,x: integer;
a: array [1..10] of integer;
begin;
n:=0;
randomize;
clrscr;
for i:=1 to 10 do
  begin
  A[i]:=random(100);
  write(A[i],' ');
  end;
writeln('ââåäèòå ýëåìåíò ïîèñêà');
readln(x);
for i:=1 to 10 do {идем по элементам массива и ищем совпадения}
  if  A[i]=x then n:=n+1;
 writeln('количество совпадений=',n);
end.

[BLackJackxxx]

MoBLer
в строке writeln('ââåäèòå ýëåìåíò ïîèñêà');
что у тебя в скобах
в моем паскале выводит('a^a^a*a"e`o`a* y'e"a*i`a*i'o` i"i^e`n~e^a`')

[MoBLer]

Сообщение от BLackJackxxx

MoBLer
в строке writeln('ââåäèòå ýëåìåíò ïîèñêà');
что у тебя в скобах
в моем паскале выводит('a^a^a*a"e`o`a* y'e"a*i`a*i'o` i"i^e`n~e^a`')

замени на "введите элемент поиска"