Program Example2;var Rand: array[1..20] of integer; I,X,NumberX:integer,beginRandomize;writeln('Masiv slychainix chisel')for I:=1 to 20 dobeginRand[I]:random(50);write(Rand[I]:4)end;writeln; write('Vvedite X:'));readln(X);NumberX:=0;for I:=1 to 20 doif Rand(I)=Xthen NumberX:=NumberX 1;if NumberX=0then writeln('V masice net chisla ',X) else writeln('Chislo ',X,'v masive prisytsvyet ',NumberX,'paz')end.Это программа из учебника, но она не работает на Pascalе ABC исправте её так что бы работала.

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. Надеюсь на благодарность и лучший ответ.