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.

Это программа из учебника, но она не работает на Pascalе ABC исправте её так что бы работала.