Помогите решить задание по информатике 8 класс (Паскаль)

ДАЮ 25 БАЛЛОВ!!!!!!!

ЗАДАНИЕ:

ВВЕСТИ ДВА ЧИСЛА. НАЙТИ НАИБОЛЬШЕЕ ЧЕТНОЕ ЧИСЛО ( Т.Е ИСПОЛЬЗОВАТЬ УСЛОВИИ ) ПРИ НАЛИЧИИ ДВУХ УСЛОВИЙ ПИШЕТСЯ, НАПРИМЕР ТАК (A>...) AND (A=...).

var a,b:integer;

begin

 readln(a,b);

 if(a mod 2 = 0) and (a > b) then

   writeln('Наибольшее, четное число: ',a)

 else begin

   if(b mod 2 = 0) and (b > a) then

     writeln('Наибольшее четное число: ',b)

   else

     writeln('Не найдено');

 end;

end.