Очень прошу помочь с заданием по информатике !
Заполнить массив из 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 bgt;0 then write(, );
write(A[,i,]);
b:=1;
end;
end.