Вычисление суммы максимального и минимального из последовательно вводимых чисел, рассматриваются только чётные числа. Остановить обработку при вводе заказанного количества чисел. Тип обработки-целые — Pascal(Паскаль)

uses crt;
var kol,min,max,a,n,i:integer;
 begin
clrscr;              {очищаем экран}
min:=9999;
max:=-9999;
writeln('Input number of numbers'); {Вводится количество номеров}
readln(n);
for i:=1 to n do  {условие цикла}
 begin
  read(a);
    if a mod 2 = 0 then  {проверка}
     begin
       inc(kol);  {генерация более оптимизированного кода}
       if a<min then min:=a;
         if (a>max) then max:=a;
     end;
 end;
  if kol=0 then write('чётных чисел нет') else
  writeln(max+min);    {вывод результата}
  readln;
end.