Сделайте пожалуйста )

Var n,i,S,x:integer;
a:array[1..50] of integer;
begin
write('Введи размер массива: ');
readln(n);
write('Введи число x: ');
readln(x);
for i:=1 to n do begin
 a[i]:=Random(n-1)+1;
 write(a[i],' ');
 end;
S:=0;
for i:=1 to n do
 if a[i]=x then S:=S+1;
if S=0 then writeln('Искомых частей нет')
else writeln('Частей ',S);
end.

Пример:
Введи размер массива: 10
Введи число x: 5
3 4 5 1 9 1 3 5 3 8
Частей 2