Не сохраняются данные в файле

procedure save();
begin
assign(f,'SaveDate.txt');
rewrite(f);
writeln(f,location);
writeln(f,y);
writeln(f,x);
writeln('saved');
readkey();
close(f);
end;

var 
    f:text;
    location,x,y:integer;
 
procedure save();
begin
assign(f,'SaveDate.txt');
rewrite(f);
writeln(f,location);
writeln(f,y);
writeln(f,x);
writeln('saved');
close(f);
//readkey();
end;
 
begin
    randomize;
    location:=random(100);
    x:=random(100);
    y:=random(100);
    save(); 
end.

uses
  crt;
 
 
var
  i, j, v, x, y,location: integer;
  f,f2: text;
  map: array [1..13] of array [1..30] of integer;
  MainMap: array[1..10] of array[1..10] of integer;
  z:char;
  nam:string;
  
  s2: String;
  lines,mode,globalX,globalY: integer;
  falseAnswer,trueAnswer,frase:string;
  code,answer,lastLocation:integer;
  shift:boolean;
 
 
 
procedure fileReader(s2: string);
 
begin
  assign(f, s2);
  reset(f);
  readln(f, mode);
  //0 - Map
  //1 - Text
  //2 - Chest
  //3 - Enemy
 
  if mode=0 then begin
  for i:=1 to 13 do begin 
  for j :=1 to 30 do begin
  read(f,v);
  if v=64 then begin
  y:=i;
  x:=j;
  end;
  map[i,j]:=v;
  
  end;
  readln(f);
  end;
  end
  
  else if mode=1 then begin
  readln(f,lines);
  for i:=1 to lines do begin
  clrscr();
  readln(f,nam);
  writeln(nam);
  writeln('Нажми любую клавишу...');
  readkey();
  end;
  end
  
  else if mode=2 then begin
  
  end;
  
  
  
  
  
  close(f);
end; 
procedure opener(a, b: integer; s: String); 
 
begin
  str(a,s2);
  nam:=s2+s;
  str(b,s2);
  nam:=nam+s2+'.txt';
  fileReader(nam);
end; 
//Здесь 
//----------------------------------------------------------------------------------------------
procedure save();
begin
assign(f2,'SaveDate.txt');
rewrite(f2);
writeln(f2,location);
writeln(f2,y);
writeln(f2,x);
writeln('saved');
readkey();
close(f2);
end;
//-------------------------------------------------------------------------------------------------
 
 
procedure move(der: integer);
 
begin
map[y,x]:=46;
  case der of 
    1: begin 
    if y-1=0 then begin location:=MainMap[globalY-1,globalX];
   y:=13;
   shift:=true;
   end;
    if y<>1 then z:=chr(map[y-1,x]);
    end;
    2: begin 
    if y+1=14 then begin location:=MainMap[globalY+1,globalX];
   y:=1;
   shift:=true;
   end;
    if y<>13 then z:=chr(map[y+1,x]);
    end;
   3: begin 
    if x-1=0 then begin location:=MainMap[globalY,globalX-1];
   x:=30;
   shift:=true;
   end;
    if x<>1 then z:=chr(map[y,x-1]);
    end;
    4: begin 
    if y+1=31 then begin location:=MainMap[globalY,globalX+1];
   x:=1;
   shift:=true;
   end;
    if x<>30 then z:=chr(map[y,x+1]);
    end;
    
  end;
  
  case z of
  '.':begin
  if shift=false then begin 
  if (der=1) and (map[y-1,x]<>35) and (y<>1) then y:=y-1
  else if (der=2) and (map[y+1,x]<>35) and (y<>13) then y:=y+1
  else if (der=3) and (map[y,x-1]<>35) and (x<>1) then x:=x-1
  else if (der=4) and (map[y,x+1]<>35) and (x<>30) then x:=x+1;
  end;
  end;
  '?':begin
  if (der=1) then opener(y-1,x,'text');
  if (der=2) then opener(y+1,x,'text');
  if (der=3) then opener(y,x-1,'text');
  if (der=4) then opener(y,x+1,'text');
  end;
  
  '=':begin
  if (der=1) then opener(y-1,x,'chest');
  if (der=2) then opener(y+1,x,'chest');
  if (der=3) then opener(y,x-1,'chest');
  if (der=4) then opener(y,x+1,'chest');
  end;
  
  end;
  
  
  
  map[y,x]:=64;
  shift:=false;
end; 
procedure key(key: Char);
 
begin
  case key of 
    'w': move(1);
    's': move(2);
    'a': move(3);
    'd': move(4);
    'q': save();
  end;
end; 
 
procedure drawMap();
begin
clrscr();
if lastLocation<>location then begin
assign(f2, 'MainMap.txt');
  reset(f2);
  
  for i := 1 to 10 do 
    begin
      for j := 1 to 10 do 
        begin
          read(f2, v);
          MainMap[i,j]:=v;
          if v=location then begin
          globalX:=j;
          globalY:=i;
          break;
          end;
        end;
        readln(f2);
    end;
    lastLocation:=location;
  close(f2);
  opener(globalY,globalX,'map');
  map[y,x]:=64;
  ;
end;
map[y,x]:=64;
for i := 1 to 13 do 
    begin
      for j := 1 to 30 do 
        begin
            z:=chr(map[i,j]);
          write(z);
          
        end;
      
      writeln();
    end;
    writeln(y,' ',x)
end;
 
 
 
begin
 
  clrscr();
  cursorOff();
 
  
  assign(f2, 'SaveDate.txt');
  reset(f2);
  readln(f2, location);
  lastLocation:=location;
  readln(f2, y);
  readln(f2, x);
  close(f2);
  assign(f2, 'MainMap.txt');
  reset(f2);
  
  for i := 1 to 10 do 
    begin
      for j := 1 to 10 do 
        begin
          read(f2, v);
          MainMap[i,j]:=v;
          if v=location then begin
          globalX:=j;
          globalY:=i;
          end;
        end;
        readln(f2);
    end;
    
  close(f2);
  opener(globalY,globalX,'map');
  drawMap();
  repeat 
    begin
      
      key(readKey());
      drawMap();
    end;
  until 2 = 3;
  readln;
end.

uses crt,SysUtils;
var 
    f:text;
    location,x,y:integer;
 
procedure save();
begin
assign(f,'SaveDate.txt');
rewrite(f);
writeln(f,location);
writeln(f,y);
writeln(f,x);
writeln('saved');
close(f);
//readkey();
end;
 
procedure key(key: Char);
begin
  case key of 
    'q': save();
  end;
end; 
 
begin
    randomize;
    location:=random(100);
    x:=random(100);
    y:=random(100);
    key(readKey());
    ExecuteProcess('notepad','SaveDate.txt');
end.

  assign(f2, 'MainMap.txt');
  reset(f2);
  
  for i := 1 to 10 do 
    begin
      for j := 1 to 10 do