Pascal编程 那些n位数

var n,p,s:longint;
f:array[1..100] of boolean;
procedure print;
begin
writeln(s);
end;
procedure try(dep,he:longint);
var i:longint;
begin
if dep>n then begin s:=he;print; end
else begin
for i:=1 to p do
begin
try(dep+1,he*10+i);
end;
end;
end;
begin
readln(n,p);
try(1,0);
end.
保证对,试过了