Сохранение шахматной доски в текстовом файле delphi

Question

попытались сохранить эту шахматную доску в текстовом файле и столкнулись с этой ошибкой.

Просто для некоторой ясности переменной платы:

Const BoardDimension = 8; 

Type 
    TBoard = Array[1..BoardDimension, 1..BoardDimension] Of String; 

Procedure SaveBoard(Var Board : TBoard); 
var 
    fptr:text; 
    i,j:integer; 
    save:char; 
begin 
    Write('Do you want a save a game? (Enter Y for yes)'); 
    Readln(save); 
    If (Ord(save) >= 97) and (Ord(save) <= 122) 
    Then save := Chr(Ord(save) - 32); 
    if save='Y' 
    then 
    begin 
     assign(fptr,'SBoard.txt'); 
     rewrite(fptr); 
     reset(fptr); 

     for i := 1 to 8 do 
     begin 
     for j := 1 to 8 do 
      begin 
      if j=8 then 
       writeln(fptr,Board[i,j]) 
      else 
       begin 
       write(fptr,Board[i,j]); 
       write(fptr,',') 
       end 
      end; 
     end; 
     close(fptr); 
    end; 
end; 

захват экрана ошибки. Также экранный захват строки вызвал ошибку.

Answer 1

I/O ошибки 105 является "файл не открыт для вывода". Это происходит потому, что этот код является неправильным:

rewrite(fptr); 
reset(fptr); 

Вызов reset делает файл только для чтения. Просто удалите его, поскольку он не имеет никакой цели. Вызов rewrite создает новый файл и открывает его для записи.