Срочно очень Прошу. Написать программу в Паскале:Надо заполнить массив случайными числами в диапазонеот 25 до 50, найти сумму четных чисели их количество.

begin
  var a:=ArrRandom(ReadInteger('n='),25,50); a.Println;
  var s:=a.Where(x->x.IsEven);
  Writeln('Четных чисел- ',s.Count,', их сумма равна ',s.Sum)
end.


n= 17
47 35 50 48 27 49 34 41 44 25 37 31 35 31 41 50 32
Четных чисел- 6, их сумма равна 258