Размещения

procedure vWriteLn(const a: array of Integer; n: Integer);
const k: Integer = 0;
var i: Integer;
begin
  WriteLn; Inc(k); Write(k:4,':'); for i:=0 to n-1 do Write(' ',a[i]);
end;
 
procedure Swp(var a, b: Integer);
var t: Integer;
begin
  t:=a; a:=b; b:=t;
end;
 
function Next(var a: array of Integer; n, m: Integer): Boolean;
var j, k, l, r, t: Integer;
begin
  Next:=False;
  repeat
    j:=n-1; while (j>=0) and (a[j]>=a[j+1]) do Dec(j);
    if j<0 then Exit;
    k:=n-1; while (a[j]>=a[k]) do Dec(k); Swp(a[j], a[k]);
    l:=j+1; r:=n-1;
    while l<r do begin Swp(a[l],a[r]); Inc(l); Dec(r); end;
  until j<m;
  Next:=True;
end;
 
const mn=100;
var
  n, m, i: Integer;
  a: array [0..mn-1] of Integer;
begin
  repeat Write('n m [1..',mn,']: '); ReadLn(n,m);
  until (n>0) and (n<=mn) and (n>=m);
  for i:=0 to n-1 do a[i]:=i+1;
  vWriteLn(a,m); while Next(a,n,m) do vWriteLn(a,m);
end.