Сохранение массива в файл

 type
 
  TKot=array[1..500] of Integer;
  SaveKot=Record
 
 
  end;
var
  SaveF:File of Integer;
  FmEUChas: TFmEUChas;

procedure TFmEUChas.MenuSaveKotClick(Sender: TObject);
begin
 AssignFile(SaveF,'D:\sim\Программирование\Delhpi\Проект\Аналитик 3\Kot.txt');
 Rewrite(SaveF);
 for i:=1 to 500 do  //пишем в файл...
  write(SaveF,KotChas[i]);
Reset(SaveF);
CloseFile(SaveF);
i:=1;
 
end;

procedure TFmEUChas.MenuOpenKotClick(Sender: TObject);
begin
AssignFile(SaveF,'D:\sim\Программирование\Delhpi\Проект\Аналитик 3\Kot.txt');
 Rewrite(SaveF);
while not Eof(SaveF) do  //читаем из файла....
  begin
    read(SaveF,KotChas[i]);
    Inc(i);
    // Для проверки
Edit1.Text:=IntToStr(KotChas[1]);
Edit2.Text:=IntToStr(KotChas[2]);
Edit3.Text:=IntToStr(KotChas[3]);
Edit4.Text:=IntToStr(KotChas[4]);
Edit5.Text:=IntToStr(KotChas[5]);
Edit6.Text:=IntToStr(KotChas[6]);
Edit7.Text:=IntToStr(KotChas[7]);
  end;
  CloseFile(SaveF);
 
end;

// сохраняем данные для MACD
  begin
 AssignFile(SaveMacdChas,'D:\sim\Программирование\Delhpi\Проект\Основная\save\EUR_USD_MacdChas_IntVr.txt');
 Rewrite(SaveMacdChas);
 for macdchas:=0 to 500 do  //пишем в файл...
 write(SaveMacdChas,MacdCh[macdchas]);
 
CloseFile(SaveMacdChas);
macdchas:=0;
end;