PROGRAM ACCS(INPUT,ACCFILE,OUTPUT);
LABEL 1;
TYPE ACCOUNTS=RECORD
                NAME:PACKED ARRAY[1..12] OF CHAR;
                AMOUNT:INTEGER
               END;
VAR ACCFILE:FILE OF ACCOUNTS;
    PERSON:ACCOUNTS;
    I:INTEGER;
BEGIN
REWRITE(ACCFILE);
FOR I:=1 TO 12 DO PERSON.NAME[I]:=' ';
PERSON.NAME[1]:=INPUT^;
WHILE PERSON.NAME[1]<>'Z' DO
  BEGIN
  FOR I:=2 TO 162 DO
    BEGIN
    GET(INPUT);
    IF INPUT^=' ' THEN GOTO 1;
    PERSON.NAME[I]:=INPUT^;
    END;
  1:READ(PERSON.AMOUNT);
  ACCFILE^:=PERSON;
  PUT(ACCFILE);
  WHILE INPUT^ = ' ' DO GET(INPUT);
  PERSON.NAME[1]:=INPUT^;
  END;
WRITELN('FINISHED');
END.