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

Формулировка задачи:

Вводятся числа. Конец ввода - 0. Найти сумму четных чисел и максимальное среди трехзначных отрицательных (программа и блок-схема) Пожалуйста ПОМОГИТЕ!

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

Листинг программы

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.

Объяснение кода листинга программы

Объявление переменных:
- a, s, max - целочисленные переменные
Инициализация переменных:
- s устанавливается равным 0
- max устанавливается равным -1000
Вывод сообщения:
- Печатается Вводите целые числа, окончание ввода 0
Цикл ввода чисел:
- В цикле вводятся целые числа
- Если введенное число является четным, то оно добавляется к переменной s
- Если введенное число принадлежит интервалу от -999 до -100 и оно больше значения переменной max, то оно становится новым значением переменной max
- Цикл продолжается до тех пор, пока введенное число не будет равно 0
Вывод результатов:
- Выводится сообщение Сумма четных=, за которым следует значение переменной s
- Если значение переменной max равно -1000, выводится сообщение Отрицательных трехзначных нет
- В противном случае выводится сообщение Максимальное из отрицательных трехзначных=, за которым следует значение переменной max
Конец программы.