*.........*............***...//
                      *........**  *.........*..Strolchi..*...../
              **********........** **.........*...........*.....//
            ***   *     ****.....* ********...*.********..*.....//
           *     *     *   **...***...........**        *.*....//
********************************************************************************
********************************************************************************
********************************************************************************
PROGRAM TANZPAAR (IN,OUT);
CONST 
  N=10;MAX=20;

TYPE
  STRING=ARRAY [1..MAX] OF CHAR;
  LISTE=ARRAY [1..N] OF STRING;
  PAAR=ARRAY [1..N] OF INTEGER;

VAR
  NAME:LISTE;
  I,ANZAHL:INTEGER;
  P:PAAR;

PROCEDURE TAUSCHE (VAR X,Y:INTEGER);
VAR
  HILF:INTEGER;
BEGIN
  HILF:=X;X:=Y;Y:=HILF;
END;

FUNCTION ZUFALL (VON,BIS:INTEGER):INTEGER;
BEGIN
  ZUFALL:=TRUNC (