{ LOAD reads the records of a file into an array for processing }

module load (data);
type
    rec = packed record                 { Form of a file record }
        name:   packed array [1..24] of char;
        id:     integer;
        day:    packed array [1..5] of char;
        uses:   0..65535;
    end;
    dataarea =   packed array [1..1000] of rec;

var
    data:       file of rec;

[global] procedure load (var hold: dataarea;    { Array must be in main pgm }
                         var  count: integer);
var
    x:          rec;
begin
    open (data, 'project:5data.dat', old);
    reset (data);
    count := 0;
    while not eof (data) do         { Loop until end of file }
    begin                           { Simply reading and storing }
        read (data, x);
        count := count + 1;
        hold[count] := x;
    end;
    close (data);
end;
end.