Компилятор считывает число из файла в виде белиберды

  assign(f, s2);
  reset(f);
  readln(f, mode);
  if mode=1 then begin
  readln(f,lines);
  for i:=1 to lines do begin
  clrscr();
  readln(f,nam);
  writeln(nam);
  writeln('Press any key to continue');
  readkey();
  end;
  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);
  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('Press any key to continue');
  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);
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();
    'e': exit();
  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: ',y,' ; x: ',x);
    writeln('location: ', location);
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.