Массив: Найти сумму четных чисел и максимальное среди трехзначных отрицательных - Pascal

var a,s,max:integer;
begin
writeln('Вводите целые числа, окончание ввода 0');
s:=0;
max:=-1000;
repeat
readln(a);
if a mod 2=0 then s:=s+a;
if (a>=-999)and(a<=-100)and(a>max) then max:=a;
until a=0;
writeln('Сумма четных=',s);
if max=-1000 then write('Отрицательных трехзначных нет')
else write('Максимальное из отрицательных трехзначных=',max)
end.