uses strings;

var 
  AGStr   : string[15];
  startStr: string[15];
  lenStr  : string[15];
  code    : integer;
  s:string;
  ag:integer;
  start:integer;
  len:integer;
  f:file;
begin
  assign(f, 'timetest.pas');
  reset(f, 1);
  writeln(TFileRec(f).name);
  close(f);
end.