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