program Buchstabentausch;
{Name: Stefan Ziegler}
{Programm zum Vertauschen von Buchstaben von W”rtern}
uses crt;

var  c, i, d, e : integer;
     a          : string;
     f          : array[1..20] of string;
     g          : array[1..20] of string;
     b          : array[1..20] of integer;
     last       : integer;

procedure zfall;
  begin
    d:=random(c)+1;
  end;

procedure zufall;

  var ende : boolean;

  begin
    repeat
      zfall;
      ende:=true;       {Normal reicht eine Zufallszahl}
      for e:=1 to c do  {Doch schon mal gezogen -> naechste }
       if d=b[e] then ende:=false;
    until ende;
    b[i]:=d;
  end;

begin
  randomize;
  c:=0; i:=0;
  a:='';
  for i:=1 to 20 do f[i]:='';
  for i:=1 to 20 do g[i]:='';
  for i:=1 to 20 do b[i]:=0;
  write('Bitte Wort eingeben: '); readln(a);
  c:=length(a);
  for i:=1 to c do
    begin
      f[i]:=copy(a,i,1);
      write(f[i]);
    end;
  writeln;
  for i:=1 to c do
    begin
      zufall;
      g[d]:=f[i];
    end;
  for i:=1 to c do write(g[i]);
  writeln;
  for i:=1 to c do write(b[i],' ');
  writeln;
  writeln(c);
  readln;
end.