Не получатся посчитать четные числа массива

program lu_zd4;
uses crt;
Type mas=array[1..12] of real;
var i,n,k:integer;
a,b:mas;
sum,x,y:real;
begin
clrscr;
writeln('Задание №4');
writeln;
writeln('Введите кол.-во элементов:');
readln(n);
writeln('Введите диапазон:');
readln(y,x);
writeln;
randomize;
writeln('Массив №1');
for i:=1 to n do
begin
a[i]:=round(random*(x-y)+y);
write(a[i]:6:0,'  ');
end;
writeln;
writeln('Массив №2');
writeln;
for i:=1 to n do
begin
b[i]:=round(random*(x-y)+y);
write(b[i]:6:0,'  ');
end;
sum:=0;
for i:=1 to n do
begin
if a[i] mod 2 =0 then
k:=k+1
else
sum:=a[i]+sum;
readln;
end.

program lu_zd4;
uses crt;
const n=12;
Type mas=array[1..n] of integer;
var i,x,y,k,sum:integer;
    a,b:mas;
begin
clrscr;
writeln('Задание №4');
writeln;
repeat
writeln('Введите диапазон x<y:');
readln(x,y)
until x<y;
writeln;
randomize;
writeln('Массив №1');
sum:=0;
k:=0;
for i:=1 to n do
 begin
  a[i]:=x+random(y-x+1);
  write(a[i]:6);
  if odd(a[i]) then sum:=sum+a[i]
  else k:=k+1;
 end;
writeln;
writeln('Сумма нечетных=',sum);
writeln('Количество четных=',k);
writeln('Массив №2');
writeln;
sum:=0;
k:=0;
for i:=1 to n do
 begin
  b[i]:=x+random(y-x+1);
  write(b[i]:6);
  if odd(b[i]) then sum:=sum+b[i]
  else k:=k+1;
 end;
writeln;
writeln('Сумма нечетных=',sum);
writeln('Количество четных=',k);
readln;
end.