Помогите создать программу, чтобы нашло максимальное отрицательное число кратное 2. Заранее спасибо

program z123;var i,a,n,c:integer;beginc:=0;write ('введите, сколько чисел будет всего');readln (n);for i:=1 to n dobeginreadln (a);if a mod 2 = 0 then                        if a<c then c:=a;end;write ('ваше число ', c);end.