Program Example2;
var Rand: array[1..20] of integer;
I,X,NumberX:integer;
begin
Randomize;
writeln('Masiv slychainix chisel');
for I:=1 to 20 do
begin
Rand[I]:=random(50);
write(Rand[I]:4)
end;
writeln;
write('Vvedite X:');
readln(X);
NumberX:=0;
for I:=1 to 20 do
if Rand[i]=X
then NumberX:=NumberX+1;
if NumberX=0
then writeln('V masice net chisla ',X)
else writeln('Chislo ',X,'v masive prisytsvyet ',NumberX,'paz')
end.
Ошибок то 4-5... скобка лишняя, массив не был описан правильно и точка с запетой не стояла 

uses crt;
var a, b, c, i, n:integer;   
s :array [1..10000] of integer;
begin
     clrscr;
     writeln ('Введите размер массива, который надо сгенерировать');
     read (n);
     for i:=1 to n do 
          s[i]:=random(50);
     for i:=1 to n do 
          writeln (i, ' элемент равен ', s[i]);
     writeln ('Введите число, которое нужно найти');
     read (a);
     for i:=1 to n do
          if s[i]=a then inc(b);
     if b=0 then writeln('В массиве нет числа ',a) else writeln('Число ', a,' в массиве встречается ', b,' раз');
end.

P.S. Надеюсь на благодарность и лучший ответ.