Дано число n из 5 цифр. Составить все комбинации этих цифр

var
  i,m: integer;
  a: array [1..5] of integer;
begin
  readln(m);
  i := 0; 
while m > 0 do begin 
 i := i + 1; 
 a[i] := m mod 10; 
 m := m div 10;
 end;
end.

{ генерация перестановок }
const k=5; { количество цифр в числе}
var a:array[1..k] of byte;
    j:integer;{кол.цифр и счетчик}
    n,m,kol:integer;{число и количество перестановок}
procedure generate (l,r:integer;var k:longint);
var i,v:integer;
begin
if (l=r)and(a[1]>0) then{убираем случаи когда первый ноль}
  begin
    for i:=1 to n do write(a[i],' ');
    writeln;
    k:=k+1;
  end
else
  begin
    for i := l to r do
      begin
        v:=a[l]; a[l]:=a[i]; a[i]:=v; {обмен a[i],a[l]}
        generate(l+1,r,k); {вызов новой генерации}
        v:=a[l]; a[l]:=a[i]; a[i]:=v; {обмен a[i],a[l]}
      end;
  end;
end;
var i:byte;
begin
repeat
write('Введите число из 5 разных цифр, не содержащее цифру 0 M=');
readln(m);
until(m>9999)and(m<=999999);
n:=0;
while m>0 do
 begin
  n:=n+1;
  a[k-n+1]:=m mod 10;
  m:=m div 10;
 end;
generate( 1,n,kol);
writeln('kol=',kol);
end.