hellp my в типе Textfile

procedure TfmNewMaze.bbSaveClick(Sender: TObject);
var oksave:Boolean;
  i, j: Integer;
  F: TextFile;
 
begin
 sd_1. initialdir: extracfilepath(application. exename);
 sd_1. filename:=Copy(caption,Pos('[',caption)+1, Pos(']',caption)-pos('[',caption)-1);
 oksave:= False;
 while not oksave do
 if sd_1.execute then
 begin
   if fileexists(sd_1. filename)
   then oksave :=(messagedlg('Òàêîé ôàéë óæå ñóùåñòâóåò!' + #13 + 'Ñîõðàíèò ïîâåðõ åãî?',mtconfirmation, [mbyes,mbno],0)=mbyes)
   else
   ok save:= True;
   if Pos('.maz', sd_1, file name)= 0
   then assignfile(f, sd_1. filename + '.maz')
   else assignfile(f, sd_1. filename);
  Rewrite(F);
  writeln(f, cobwallcolor. selected);
  writeln(f, cobentercolor. selected);
  writeln(f, cobexitcolor. selected);
  for i:= 1 to sdSizeV. value do
  begin
  for j:= 1 to sdSizeH. value do
  if sgmazestr.cells[j-1, i-1]= '|'
  then write(f, '0')
  else write(f, sgmazestr.cells[j-1, i-1]);
  Writeln(f, '|')
   end;
 closefile(f);
 bbsave.enabled:= False;
 caption:= 'Ëàáèðèíò-[' + extractfilename(sd_1. filename) + ']';
 end else break;
end;