Напечатайте все 2-значные числа,кратные данному числу K. Число K ввести с клавиатур?

Var a,k:integer; begin writeln('введите число k '); readln(k); writeln('числа кратные ',k,' : '); for a:=1 to k do begin if (k mod a = 0) and (a>9) then writeln(a); end; end.