为什么我写的程序无法编译通过？

摇摆兔

平台：windows xp，free pascal.
PROGRAM EX3(INPUT,OUTPUT);
TYPE
FILE1=FILE OF RECORD1;
RECORD1=RECORD
A:INTEGER;
B:CHAR;
C:BYTE;
END;
TYPE DATA=ARRAY [1..5] OF RECORD1;
VAR AATA;
VAR I:INTEGER;
VAR F:FILE1;
BEGIN
ASSIGN(F,INPUT);RESET(F);READ(F,A[1],A[2],A[3],A[4],A[5]);
FOR I:=1 TO 5 DO
        BEGIN
                WRITE(A[I].A,A[I].B,A[I].C);
        END;

END.

摇摆兔

未命名.bmp(3.00M)

逍遥派掌门人

图片太大了，用 jpg 格式的。

逍遥派掌门人

注意函数的参数。