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

 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;

Write(SaveF, KotChas[i], '; ');

Writeln(SaveF, KotChas[i]);

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]);
read(SaveF,KotDay[i]);     //второй массив
Inc(i);

type
  TKot=array[1..500] of Integer;
  Tfail=file of TKot;

type
  TKot=record
          rz:integer;
          ms:array[1..500] of Integer;
          end;
  Tfail=file of TKot;

procedure TFmEURUSD.ButLoadKotChasYesClick(Sender: TObject);
begin
AssignFile(SaveChasKot,'D:\sim\Программирование\Delhpi\Проект\Основная\EUR_USD_Chas_Kot.txt');
 
 Reset(SaveChasKot);
while not Eof(SaveChasKot) do  //читаем из файла....
  begin
    read(SaveChasKot,KotChas[i]);
    Inc(i);
  end;
  CloseFile(SaveChasKot);
 
 ImChas.Canvas.MoveTo(intVrChas[1], 500-KotChas[1]);
for i:=1 to length(intVrChas)-1 do
begin
ImChas.Visible:=True;
 Canvas.Pen.Color:=ClRed;
ImChas.Canvas.LineTo(intVrChas[i], 500-KotChas[i]);
end;
procedure TFmEURUSD.ButLoadInrVrChasYesClick(Sender: TObject);
begin
AssignFile(SaveIntVrChas,'D:\sim\Программирование\Delhpi\Проект\Основная\EUR_USD_Chas_IntVr.txt');
 
 Reset(SaveIntVrChas);
while not Eof(SaveIntVrChas) do  //читаем из файла....
  begin
    read(SaveIntVrChas,intVrChas[i]);
    Inc(i);
end;
  CloseFile(SaveIntVrChas);
  z:=IntVrChas[1];
 
 
 // Для проверки
 
  Edit2.Text:=IntToStr(intVrChas[1]);
  Edit3.Text:=IntToStr(intVrChas[2]);
  Edit4.Text:=IntToStr(intVrChas[3]);
  end;

// сохраняем данные средней скользящей
 begin
 AssignFile(SavessChas,'D:\sim\Программирование\Delhpi\Проект\Основная\save\EUR_USD_ssChas_IntVr.txt');
 Rewrite(SavessChas);
 for srschas:=0 to 500 do  //пишем в файл...
  write(SavessChas,ssChas[srschas]);
Reset(SavessChas);
CloseFile(SavessChas);
srschas:=0;
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]);
Reset(SaveMacdChas);
CloseFile(SaveMacdChas);
macdchas:=0;
end;