Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных x. пример работы программы: исходный массив: 4 0 1 2 0 1 3 4 1 0 что ищем? 0 a[2], a[5], a[10]

Var a:array[1..10] of integer;
i,x:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],' ');
end;
WRITELN;
write('Что ищем?: ');
readln (x);
for i:=1 to 10 do if x=a[i] then write('A[',i,'] ');
end.