PROGRAM FILTEST(INPUT,FIL1);
TYPE MIXED=(INT,REAL);
      MF=RECORD V
         CASE V:MIXED OF
           INT:INTEGER;
           RL:REAL;
      END;
VAR FIL1:FILE OF MF;
    I:INTEGER;
    VS:MF;
BEGIN
RESET(FIL1);
FOR I:=1 TO 10 DO
  BEGIN
  READ(VS.MIXED);
  WRITELNIFIL1,VS.MIXED)
  END;
END.