Под каким именем сохраняется файл?? - Pascal

uses crt;
type spion=record
                prz:string[20];
                doc:byte;
                orz:byte;
               end;
       fail=file of spion;
var sp:spion;
    mx:byte;
    pr:string[20];
    f:fail;
    name:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
read(f,sp);
mx:=sp.orz;
pr:=sp.prz;
while not eof(f) do
 begin
  read(f,sp);
  if sp.orz>mx then
   begin
    mx:=sp.orz;
    pr:=sp.prz;
   end;
 end;
close(f);
write('Самый вооруженный ',pr);
readln
end.