Нужно написать программу18) Заполнить массив случайным образом и вывести на экран только элементы остаток от деления на x которых равен 2

begin
  var x:=ReadInteger('x=');
  var a:=ArrRandom(ReadInteger('n='),0,99); a.Println;
  a.Where(t->t mod x=2).Println
end.


x= 5
n= 20
45 58 11 43 42 37 93 71 91 1 94 19 37 92 65 22 69 10 63 33
42 37 37 92 22