Найти в массиве элемент равный Х или установить что он отсутствует.Программа на Паскале

Если нужны объяснения то пиши в личку)

Program zada4a;vari,x,n: integer;a: array [1..100] of integer;beginn:=0;

write('Введите x - ');readln(x);for i:=1 to 5 do   - если попросят чтобы выводилось больше 5 чисел, то поменяйте цифру 5 на нужную. begin a[i]:=random(21);  -это строчка озночает, что задаются числа интервалом от 0 до 20. write(a[i]:5); end; writeln; for i:=1 to 5 do begin if x=a[i] then begin writeln('Элемент в массиве равный ',x,' находится под номером - ',i); n:=n+1; end; end; if n=0 then write('Элемент c таким значением отсутствоет'); end.