Помогите написать в Паскале.
Задан массив значений аргумента Х=(1.2;1.8;-4;-1.5;-0.6;0.2;0.5;14;26;-8.4). Определить количество четных чисел в массиве Х и их среднее арифметическое значение .
Х-вводим с клавиатуры.

uses Crt;const n=10;Type Mas=array [1..n] of real;var  X: Mas;     i, Col: integer;     Sum, Sred: real;beginClrScr;for i:=1 to n do   begin      Write (' X[',i,'] ='); ReadLn(X[i]);      if  frac (X[i])=0 and (X[i]  mod 2 =0)  then      begin            Col:=Col+1;            Sum:=Sum+X[i];      end;    end;    WriteLn;    Sred:=Sum/Col;   WriteLn (' Количество четных = ', Col);   Writeln (' Их среднее число = ', Sred:6:3);ReadLn;end.