20 баллов. Найдите пожалуйста ошибку, пишет всегда ошибка, не верно введён

var m:integer;

begin

readln(m);

if (m=1) or (m=2) or (m=12) then writeln('z') else

if (m=3) or (m=4) or (m=5) then writeln('v') else

if (m=6) or (m=7) or (m=8) then writeln('l') else

if (m=9) or (m=10)or (m=11) then writeln('o')

else writeln('err');

end.

Либо

var m:integer;

begin

readln(m);

if (m=1) or (m=2) or (m=12) then writeln('z');

if (m=3) or (m=4) or (m=5) then writeln('v');

if (m=6) or (m=7) or (m=8) then writeln('l');

if (m=9) or (m=10)or (m=11) then writeln('o');

if (mlt;1) or (mgt;12) then writeln('err');

end.