Помогите найти ошибку в программе. почему-то не получается. (см. внутри).

Задача: найти сумму всех двузначных чисел, в записи которых есть цифра N.
Решение:
Var n,s,i:Integer;
Begin
ReadLn (n);
s:=0;
For i:=10 to 99 do
Begin
If ((i div 10=n) or (i mod 10=n)) then s:=s+i;
end;
WriteLn (s);
End.