Паскаль: найти кол-во двухзначных чисел, в записи которых встречается цифра 6

Var
a,b,i:integer;
begin
a:=0;
for i := 10 to 99 do 
   if (i mod 10=6) or (i mod 100 div 10 =6)  then  inc(a);
  writeln(a);
  readln;
end.