Написать подпрограмму, которая ищет а четырехзначном числе минимальную четную цифру. если таких цифр нет, то вернуть -1. на паскале

var a,b: integer;

begin

read(a);

b: =a mod 10;

a: =a div 10;

if (a mod 10 < b) and (a mod 2 = 0) then b: =a mod 10;

a: =a div 10;

if (a mod 10 < b) and (a mod 2 = 0) then b: =a mod 10;

a: =a div 10;

if (a mod 10 < b) and (a mod 2 = 0) then b: =a mod 10;

if b mod 2=0 then writeln(b)else writeln('-1');

end.