Помогите составить программу в Паскале, пожалуйста! Вводится число N, а затем N чисел. Определить сумму отрицательных двузначных четных чисел.

var i, d, n, s: integer;beginwrite('n = ');readln(n);for i:=1 to n dobeginreadln(d);if (d<0) and (d<-9) and (d>-100) then s:=s+d;end;writeln('s = ', s);end.