PROGRAM READDEF(INPUT,OUTPUT);
TYPE VARTYPE=(INT,RL,CHR,BOOL);
     READREC=RECORD
          CASE T:VARTYPE OF
            INT:INTEGER;
            RL:REAL;
            CHR:CHAR;
            BOOL:BOOLEAN;
          END;
PROCEDURE MYREAD(VAR F:TEXT;VAR R:READREC);
BEGIN
VAR I:INTEGER;
BEGIN
END;
BEGIN
END.