1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure naechstesWort(var wort: String);
var
  i,j,n:            Integer;
  start,gefunden:   Boolean;
  buchstabe,ersatz: Char;
begin
  n:=length(wort);
  i:=n;
  repeat
    dec(i);
    start:=i=0;
    if not start then gefunden:=wort[i]<wort[i+1];
  until start or gefunden;
  if not start
  then begin
    buchstabe:=wort[i];
    j:=n;
    while wort[j]<=buchstabe do dec(j);
    ersatz:=wort[j];
    wort[i]:=ersatz;
    wort[j]:=buchstabe;
  end;
  for j:=0 to (n-2-i) div 2 do
  begin
    buchstabe:=wort[n-j];
    wort[n-j]:=wort[i+1+j];
    wort[i+1+j]:=buchstabe;
  end;
end;