remplacement par *

ÉNONCÉ
Ecrire un programme permettant de saisir un entier n ( 2<=n<=9), puis saisi un autre entier max (10<=max<=99), puis qui affiche tous les entiers entre 1 et max tout en remplaçant les multiples de n par un étoile *.
exemple:
si n=2et max = 15 alors le programme affiche:
1 * 3 * 5 * 7 * 9 * 11 * 13 * 15

si n=3 et max= 23 alors le programme affiche:
1 2 * 4 5 * 7 8 * 10 11 * 13 14 * 16 17 * 19 20 * 22 23

PASCAL
program remplacment;
uses wincrt;
var
max:integer;
n:integer;
procedure saisie (var n:integer; var max:integer);
begin
repeat
writeln('introduire une valeur');
readln (n);
until n in [2..9];
repeat
writeln('introduire une valeur pour max');
readln (max);
until max in [10..99];
end;

procedure affichage;
var
i:integer;
begin
for i:=1 to max do
begin
if (i mod n =0) then
write ('* ')
else
write(i,' ');
end;
end;
begin
saisie(n,max);
affichage;
end.