Дан массив 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]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.