Напечатайте все 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.