Безотлагательно!!!Решить задачу на Паскале на компьютере: Отыскать сумму нечетных положительных чисел

Безотлагательно!!!
Решить задачу на Паскале на компьютере:
Найти сумму нечетных положительных чисел из N введенных чисел.
Заблаговременно СПАСИБО!!!
(через for)
program z1;
var i,a:real; s,n: integer;
writeln('введите кол-во чисел');
readln(n);s:=0;
for i:=1 to n do
begin;
readln(a);
if a mod 2 lt;gt;0 and agt;0
then
begin s:=s+a
end;
end;
writeln (s);
end.
Начала решать, не получается(((