var
  f1 : file;
  f2 : text;
  f3 : textfile;  // from AssignFile hlp

(* File type declarations from Delphi file help *)
type
  Person = record
    FirstName: string[15];
    LastName : string[25];
    Address  : string[35];
  end;
  PersonFile = file of Person;
  NumberFile = file of Integer;
  SwapFile = file;

TFileRec = record
  Handle: Integer;
  Mode: Integer;
  RecSize: Cardinal;
  Private: array[1..28] of Byte;
  UserData: array[1..32] of Byte;
  Name: array[0..259] of Char;
end;