Помогите написать в Паскале.

Задан массив значений аргумента Х = (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;

begin

ClrScr;

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.