решить 9 строчку, где требуется: Найти минимальную элемент массива, произведение элементов массива и вывести все элементы, равные введённому числу x

// PascalABC.NET

begin

 var arr := ArrRandomInteger(8, 2, 13);

 var x: integer;

 write('X = ');

 read(x);

 arr.Min.Println();

 arr.Product.Println();

 arr.Where(val -> val = x).Print();

end.

program Prog;

var i, x, Proiz, MinEl: Integer;

arr: array[1..8] of Integer;

begin

Proiz:=1;

MinEl:=13;

randomize;

write('Введите X: ');

read(x);

// запоолнение, вычисление мин. эл., и умножения

for i:=1 to 8 do begin

arr[i]:=random(12)+2;

Proiz:=Proiz*arr[i];

if arr[i]<MinEl then

MinEl:=arr[i]

end;

// вывод всего массива

for i:=1 to 8 do

write(arr[i], ' ');

writeln;

// вывод нужных элементов

writeln('Минимальный элемент: ', MinEl);

writeln('Произведение элементов: ', Proiz);

writeln('Элементы, равные X: ');

for i:=1 to 8 do

if arr[i]=x then

write(arr[i], ' ')

end.