как записать в файл и считать потом из него три массива с числами

[racushka_n]

совсем не зря

[racushka_n]

не, ну это несерьёзно..
Ну неужели совсем-совсем ничего не понятно из моего примера? Я даже комментарии старался/писал.. и всё напрасно?

procedure TForm1.buttonSaveClick(Sender: TObject);
var Mas : array of integer;
    i, k : integer;
    TfS1 : TFileStream;
begin
  // зададим размер массива
  k := 10;
  SetLength(Mas, k);

  {заполнение массива последовательно числами 0, 1, 2.... K-1}
  for i:=0 to k-1 do
     Mas[i] := i;

// сохранить в файл
   TfS1 := TFileStream.Create('namefile.rle',fmCreate   );
   // сначала запишем число записей
   TfS1.Write(k, SizeOf(integer));

   // теперь по очередно все записи
   for i:=0 to k-1 do
     TfS1.Write(Mas[i], SizeOf(integer));

   // закроем файл (и освободим файловую переменную)
   FreeAndNil(TfS1);


end;

procedure TForm1.buttonLoadClick(Sender: TObject);
var Mas : array of integer;
    i, k : integer;
    TfS1 : TFileStream;
begin
   //открываем на чтение
   TfS1 := TFileStream.Create('namefile.rle', fmOpenRead	 );
   // сначала прочитаем число записей
   TfS1.Read(k, SizeOf(integer));

   // установим длину массива
   SetLength(Mas, k);

   // теперь по очередно все записи
   for i:=0 to k-1 do
     TfS1.Read(Mas[i], SizeOf(integer));

   // закроем файл (и освободим файловую переменную)
   FreeAndNil(TfS1);

   // для отладки выведем данные в мемо;
   Memo1.Lines.clear;
   Memo1.Lines.Append('число записей: '+IntToStr(k));
   for i:=0 to k-1 do
      Memo1.Lines.Append(IntToStr(Mas[i]));

end;

спасибо большое! Ваш код навел меня на несколько другие мысли и всё! заработал мой типа-JPEG-кодер=)