Сохранение и чтение из файла

var
s: string[255];
i: integer;
fs: file of string[255];
fi: file of integer;

var
fs, fi: TFileStream;
s: array[4] of string[255];
i:  array[4] of integer;
j: integer;
begin
  ... // заполняете массивы
 try
  fs := TFileStream.Create('имя.файла', fmCreate);
  for j := 0 to 3
  do fs.Write(s[j], SizeOf(s[j]);
 finally
  fs.Free;
 end;
 
  // то же самое с массивом i
end;

var
fs, fi: TFileStream;
s: array[4] of string[255];
i:  array[4] of integer;
j: integer;
begin
 try
  fs := TFileStream.Create('имя.файла', fmOpenRead); // Обратите внимание, при чтении fm-флаг другой
  fs.Position := 0; // при чтении из файла надо установить "каретку" в начало, так как
                    // после TFileStream.Create позиция "каретки" оказывается в конце файла
  for j := 0 to 3
  do fs.Read(s[j], SizeOf(s[j]);
 finally
  fs.Free;
 end;
 
  // то же самое с массивом i
end;

var
  f: file of integer;
  x: array of integer;
  z, n, i: integer;
 
begin
  // Создание файла и запись в него чисел
  assign(f, 'data.dat');
  rewrite(f);
  readln(n);
  for i := 1 to n do
  begin
    readln(z);
    write(f, z);
  end;
  close(f);
  
  // Чтение из файла в динамический массив
  reset(f);
  n := FileSize(f);
  SetLength(x, n);
  i := 0;
  while not eof(f) do
  begin
    read(f, x[i]);
    write(x[i]:4);
    inc(i);
  end;
  close(f);
end.