Очень прошу помочь с заданием по информатике!

Заполнить массив из 10 элементов случайными числами в интервале [0 ... 4] и вывести номера всех элементов, равных Х.

Пример: Исходный массив: 4 0 1 2 0 1 3 4 1 0

Что ищем? 0

А[2], А[5], А[10]

Var

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

b, i, x:integer;

begin

for i:=1 to 10 do a[i]:=random (5);

write ('Исходный массив:');

for i:=1 to 10 do write (' ', a[i]);

writeln;

write ('Что ищем? ');

readln (x);

for i:=1 to 10 do

if a[i]=x then

begin

if b>0 then write (', ');

write ('A[', i,']');

b:=1;

end;

end.