Directory of image this file is from
This file as a plain text file

PROGRAM TANZPARTNERWAHL(IN,OUT);
CONST MAX=20;N=10;
TYPE STRING=ARRAY [1..MAX] OF CHAR;
     EHELEUTE=ARRAY [1..N] OF STRING;
     PAAR=ARRAY [1..10] OF INTEGER;

VAR HERR:EHELEUTE;DAME:PAAR;I,ANZAHL,Z:INTEGER;

PROCEDURE TREAD(VAR TEXT:STRING);
VAR I:INTEGER;
BEGIN
I:=1;
REPEAT
      READ(TEXT[I]);
      I:=I+1
UNTIL EOLN OR (I=MAX);
TEXT[I]:="@"
END;

PROCEDURE TWRITE(VAR TEXT:STRING);
VAR I:INTEGER;
BEGIN
I:=1;
REPEAT
      WRITE(TEXT[I]);
      I:=I+1
UNTIL TEXT[I]="@"
END;

FUNCTION ZUFALL(A,B:INTEGER):INTEGER;
BEGIN
      ZUFALL:=TRUNC(RANDOM*(B-A))+1+A
END;

PROCEDURE TAUSCH(VAR O,P:INTEGER);
VAR Q:INTEGER;
BEGIN
     Q:=O;O:=P;P:=Q
END;

PROCEDURE MISCHEN(VAR DAME:PAAR);
VAR I,WAHL:INTEGER;
BEGIN
     FOR I:=1 TO ANZAHL-1 DO BEGIN
         WAHL:=ZUFALL(I,ANZAHL);
WRITELN(WAHL);
           TAUSCH(DAME[I],DAME[WAHL]);
                        END;
END;


BEGIN
WRITE("ANZAHL EHELEUTE?");READLN;READ(ANZAHL);
FOR I:=1 TO ANZAHL DO BEGIN
    WRITELN("GEBEN SIE DEN NAMEN",I,".PAAR EIN");READLN;
    TREAD(HERR[I]) END;

FOR I:=1 TO ANZAHL DO BEGIN
      DAME[I]:=I;
      MISCHEN(DAME);
WRITELN(DAME[I]);WRITELN(I);
                   END;
FOR I:=1 TO ANZAHL DO BEGIN
    WRITELN("HERR ");TWRITE(HERR[I]);
Z:=DAME[I];
    WRITE(" TANZT MIT FRAU ");TWRITE(HERR[Z])
                 END
END.