Помогите пожалуйста с pascal
Составте программу находящую сумму целых отрицательных нечетных чисел из промежутка от А до В

var a,b,s,i: integer;

begin

readln(a,b);

s:=0;

if b<a then write('неверный ввод')

else begin

for i:=a to b do

if (i<0) and (abs(i) mod 2<>0) then s:=s+i;

write('сумма целых отрицательных нечетных чисел на [',a,';',b,']: ',s);

end;

end.