Найдите у меня ошибку
(Надо найти пяти 2-значных чисел найти:
Самую большую цифру, которая кратна 3)
var che,a,b,c,d,max,q:integer;
begin
max:=0;
for q:=1 to 5 do
begin
writeln('Введите двухзначное число');
readln(che);
a:=che div 1000;
b:=che div 100 mod 10;
c:=che div 10 mod 10;
d:=che div 10;
if (a>max) and (a mod 2=0) then
min:=a;
if (b>max) and (b mod 2=0) then
min:=b;
if (c>max) and (c mod 2=0) then
min:=c;
if (d>max) and (d mod 2=0) then
min:=d;
end;
writeln ('Cамая большая цифра, которая кратна 3' ,max);
end.