Помогите сослать программу на Паскале.Поиск чисел в массиве. Program Example;
{Программа заполняет массив Rand случайными числами в диапазоне от 0 до 50,
вводит число Х, и вычисляет, сколько раз Х входит в массив Rand}

Var Rand: array[1..20] of integer;
I, X, NumberX : integer,
Begin
{Установка датчика случайных чисел}
​Randomize;
{Заполнение массива случайными числами и вывод их на экран}
​Writeln(‘Массив случайных чисел:’)
​For I:=1 to 10 do
​begin
​ Rand[I]:=random(50); Write(Rand[I]:4)
​End;
​Writeln;
{Ввод Х}
​Write(‘Введите Х:’)); Readln(X);
{Подсчет числа вхождений Х в массив}
​NumberX:=0;
​For I:=1 to 10 do
​​If Rand(I)=X then NumberX:=NumberX+1;
{Анализ и вывод результата}
​If NumberX=0
​Then​writeln(‘В массиве нет числа’,X)
​Else writeln(‘Число’,X,’в массиве присутствует’,NumberX,’раза’)
End.

Var Rand: array[1..20] of integer;I, X, NumberX : integer;Begin Writeln('Массив случайных чисел');For I:=1 to 10 dobegin Rand[I]:=random(50); Write(Rand[I]:4);End;Writeln;Write('Введите Х:'); Readln(X);NumberX:=0;For I:=1 to 20 doIf (Rand[I]=X) then NumberX:=NumberX+1;If NumberX=0 Then writeln('В массиве нет числа ',X)Else writeln('Число',X,'в массиве присутствует ',NumberX,' раза')End.