Пользователь вводит четыре числа. Найдите наибольшее четное число среди них. Если оно не существует, выведите фразу "not found". Сделать в паскаль

var a:array[1..4] of integer;i,max:integer;b:boolean;beginb:=false;for i:=1 to 4 doread(a[i]);max:=a[1];for i:=1 to 4 doif (not odd(a[i])) and (a[i]>=max) then beginmax:=a[i];b:=true;end;if b then write('',max) else write('not found');end.

var    a: array[1..4] of integer;    i, max: integer;begin    for i := 1 to 4 do        readln(a[i]);        max := a[1];    for i := 1 to 4 do        if (a[i] mod 2 = 0) and (a[i] >= max) then            max := a[i];        if max mod 2 = 0 then         writeln(max)     else        writeln('not found');end.