Дан массив 8 действительных, найти сумму менее 8 и количеств не четных

Uses crt;

const n=8;

var i, ans2:integer;

ans1:real;

a:array[1 ... n] of real;

begin

writeln ('Введите 8 действительных чисел:') ;

for i:=1 to n do

begin

read (a[i]) ;

if a[i]<8 then

ans1:=ans1+a[i];

if (a[i]=trunc (a[i])) and (trunc (a[i]) mod 20) then

ans2:=ans2+1;

end;

writeln ('Сумма чисел, меньших 8: ', ans1) ;

writeln ('Количество нечетных чисел: ', ans2) ;

end.