Массив a[1 ... 10] найти сумму элементов >6 и нечетные

Program prog;

uses crt;

var a:array[1 ... 10] of integer;

s, i: integer;

begin

clrscr;

for i:=1 to 10 do begin

write ('a[', i,'] = ') ;

readln (a[i]) ;

end;

for i:=1 to 10 do begin

if (a[i] mod 2 = 1) and (a[i]>6) then

s:=s+a[i];

end;

writeln ('Сумма чисел s = ', s) ;

end.