PROGRAM TESTCREATE;TYPE ISF=FILE OF ARRAY (1..232) OF INTEGER;     KEYDESCRIPTION=ARRAY (1..9) OF ARRAY (1..3) OF INTEGER;VAR FIL:STRING(20);    NREC,RECSIZE,KEYFLDS,IER:INTEGER;    KEYDESC:KEYDESCRIPTION;(*$ICREATE*)BEGIN(*PAS P], FILEN BLIVER IKKE STOR NOK*)  FIL:='KUNDERG:P2';  NREC:=300;  RECSIZE:=132;  KEYFLDS:=1;  KEYDESC(1,1):=1;KEYDESC(1,2):=2;KEYDESC(1,3):=1;  CREATE(FIL,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);  WRITELN(LIST,'IER : ',IER);WRITELNEND.