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

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

Program zada4a;

var

i, x, n: integer;

a: array [1 ... 100] of integer;

begin

n:=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.