OJ Board

Thanks for your suggestion,but the problem need you to input char less than 10
can you tell me how to modify my program?

Pascal code
PROGRAM exp1_7;
var a:string;
p:char;
k,n,m,j,l,o:integer;
procedure swap(var a:string;k,i:integer);
var t:char;
begin
t:=a[k];a[k]:=a ;a :=t;
end;
procedure perm(a:string;k,n:integer);
var i:integer;
begin
if k=n then writeln(a)
else for i:=k to n do
begin
swap(a,k,i ...

Pascal code
PROGRAM exp1_7;
var a:string;
p:char;
k,n,m,j,l,o:integer;
procedure swap(var a:string;k,i:integer);
var t:char;
begin
t:=a[k];a[k]:=a ;a :=t;
end;
procedure perm(a:string;k,n:integer);
var i:integer;
begin
if k=n then writeln(a)
else for i:=k to n do
begin
swap(a,k,i ...