Заполнить массив случайными числами и вывести номера всех элементов, равных X - PascalABC.NET

Формулировка задачи:

4)Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных X. Если кому интересно, вот рабочая, программа домашнего производства. Задания брал из презентации по основам массивов Паскаль( на сайте Полякова можно найти)

program str40n4;
Var A: Array[1..10] of Byte; B :Array[1..10] of Byte;
Var i,x,k : Integer;
begin
For i:= 1 to 10 do begin
A[i]:= Random (0,4);
Writeln ('A {',i,'} = ', A[i]);
end;
i:=1;
Writeln ('Что ищем?');
Read( x);
repeat
While (i<=10) and ( A[i] <> x) do i:= i+1;
k:= k+ 1;
If i<= 10 then begin
B[i]:= A[i];
Writeln('A {', i,'} = ', x);
A[i]:=A[i]-1;
end;
until k=10;
end

Решение задачи: «Заполнить массив случайными числами и вывести номера всех элементов, равных X»

textual
                            Листинг программы 
                        

                            uses arrays;
 
begin
  Randomize;
  var a := CreateRandomIntegerArray(10, 0, 4);
  PrintLn(a);
  var X := ReadInteger();
  writeln(string.Join('', a.Select((v, i) -> v = X ? Format('A[{0}] = {1}' + newLine, i, X) : '').ToArray()));
end.
                        