Перестановка цифр трехзначного числа

var 
   A, B, C, K:integer;
begin
  write(' Введите трехзначное число ');
  readln(K);
  A:=(K div 100);
  B:=((K-A*100)div 10);
  C:=(K-A*100 -b* 10);
  writeln(A,C,B);
  writeln(B,A,C);
  writeln(B,C,A);
  writeln(C,A,B);
  writeln(C,B,A);
end.

var
a, b, c: char;
begin
 for a := 'A' to 'C' do
 for b := 'A' to 'C' do
 for c := 'A' to 'C' do
            
  if (a <> b) and (a <> c) and (b <> c) then
  Writeln(a, b, c);
    end.

var
  a:array[1..3] of byte;
  i,j,k:integer;
  n:string;
begin
  n:=inttostr(ReadlnInteger('n='));
  for i:=1 to 3 do a[i]:=ord(n[i])-48;
  for i:=1 to 3 do
    for j:=1 to 3 do
      for k:=1 to 3 do
        if (i<>j) and (i<>k) and (j<>k) then writeln(a[i],a[j],a[k]);
end.

var
  a:array[1..3] of byte;
  i,j:integer;
  n:string;
begin
  n:=inttostr(ReadlnInteger('n='));
  for i:=1 to 3 do a[i]:=ord(n[i])-48;
  for i:=1 to 3 do
    foreach j in [1..3]-[i] do writeln(a[i],a[j],a[6-i-j]);
end.

var S : String;
 
procedure Generate(L, R : Integer);
begin
  if L = R then WriteLn(S)
  else for var i := L to R do begin Swap(S[i],S[L]); Generate(L+1,R); Swap(S[i],S[L]); end;
end;
 
begin
  S := Abs(ReadInteger('n =')).ToString;
  Generate(1, S.Length);
end.

const delim = '¤';
var S, Store : String;
 
procedure Generate(L, R : Integer);
begin
  if (L = R) and (Store.IndexOf(S+delim) < 0) then begin WriteLn(S); Store+=S+delim; end
  else for var i := L to R do begin Swap(S[i],S[L]); Generate(L+1,R); Swap(S[i],S[L]); end;
end;
 
begin
  S := ReadString('>');
  Generate(1, S.Length);
end.

type
  arr = array [0..9] of integer;
 
var
  A: arr;
  chislo, err: integer;
  c:string;
 
procedure output(B: arr; n: integer; s:string);
begin
  for var i: integer :=0 to 9 do
    if ((n<>1) or (i<>0)) and (B[i] > 0) then 
    begin
      if s.Length=n then s:=s.Remove(n-1,1);
      if n mod c.length=0 then writeln(s+i);
      s+=i;
      B[i] -= 1;
      output(B, n + 1, s);
      B[i] +=1;
    end;
end;
 
begin
  c := readstring;
  for var i: integer := 1 to c.Length do
  begin
    val(c[i], chislo, err);
    A[chislo] += 1;
  end;
  writeln;
  output(A, 1, '');
end.

((n<>1) or (i<>0)) and