Сохранение в нетипизированный файл

var f:file;
i:integer;
a:word;
b:array[20] of byte;
begin
assignfile(f, 'oladushki.bin');
rewrite(f);
write(f, i, 100);
write(f,a,50);
for i:=0 to 20 do
begin
write(f,b[i],10);
end;
closefile(f);

 TMapObject=record 
    positionX:integer;  
    positionY:integer;  
    pointtype:string[50]; 
    ambulancebus_A_count:integer;
    ambulancebus_B_count:integer; 
    ambulancebus_C_count:integer; 
    traffic_jam_radius:integer; 
    traffic_speed_rate:real; 
    traffic_jam_enabled:boolean; 
    startpoint:integer;
    endpoint:integer; 
    chief_Doctor_name:string[70];
    Doctor_tel_number:string[20]; 
    operators_count:integer; 
    rating:string[20]; 
    Sity:string[100];  
    Street:string[100]; 
    House:String[100]; 
    Apartament:string[100]; 
  end;
 
  Tsettings=record 
    FullWindow:boolean;
    size_position_save:boolean;
    positionXform1:integer;
    positionYform1:integer;
    positionXform2:integer;
    positionYform2:integer;
    sizeX:integer;
    sizeY:integer;
    dump_dynamic_arrays:boolean;
    dump_static_arrays:boolean;
    square_selection:integer;
    roadpoint_size:integer;
    roadpoint_vnR:byte; 
    roadpoint_vnG:byte;
    roadpoint_vnB:byte;
    roadpoint_znR:byte;
    roadpoint_znG:byte;
    roadpoint_znB:byte;
 
    ambulance_station_size:integer;
    ambulance_station_vnR:byte;
    ambulance_station_vnG:byte;
    ambulance_station_vnB:byte;
    ambulance_station_znR:byte;
    ambulance_station_znG:byte;
    ambulance_station_znB:byte;
 
    call_center_size:integer;
    call_center_vnR:byte;
    call_center_vnG:byte;
    call_center_vnB:byte;
    call_center_znR:byte;
    call_center_znG:byte;
    call_center_znB:byte;
 
    traffic_jam_size:integer;
    traffic_jam_vnR:byte;
    traffic_jam_vnG:byte;
    traffic_jam_vnB:byte;
    traffic_jam_znR:byte;
    traffic_jam_znG:byte;
    traffic_jam_znB:byte;
 
    dirt_road_width:integer;
    dirt_road_R:byte;
    dirt_road_G:byte;
    dirt_road_B:byte;
 
    road_standart_width:integer;
    road_standart_R:byte;
    road_standart_G:byte;
    road_standart_B:byte;
 
    route_road_width:integer;
    route_road_R:byte;
    route_road_G:byte;
    route_road_B:byte;
  end;

type
TMapObject=record
    positionX:integer;
    positionY:integer;
    pointtype:string[50];
    ambulancebus_A_count:integer;
    ambulancebus_B_count:integer;
    ambulancebus_C_count:integer;
    traffic_jam_radius:integer;
    traffic_speed_rate:real;
    traffic_jam_enabled:boolean;
    startpoint:integer;
    endpoint:integer;
    chief_Doctor_name:string[70];
    Doctor_tel_number:string[20];
    operators_count:integer; 
    rating:string[20]; 
    Sity:string[100];
    Street:string[100]; 
    House:String[100]; 
    Apartament:string[100];
  end;
 
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var size:integer;
begin
size:=sizeof(TMapObject);
Edit1.Text:=inttostr(size)
end;

type
TMapObject=record
    positionX:integer;
    positionY:integer;
 
  end;
 
 
var
  Form1: TForm1;
  f:file;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var z:TMapObject;
    i:byte;
begin
randomize;
assignfile(f,'111');
rewrite(f,sizeof(TMapObject));
for i:=1 to 5 do
 begin
  z.positionX:=random(800);
  z.positionY:=random(800);
  blockwrite(f,z,1)
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var z:TMapObject;
begin
assignfile(f,'111');
reset(f,sizeof(TMapObject));
while not eof(f) do
 begin
  blockread(f,z,1);
  Memo1.Lines.Add(inttostr(z.positionX));
  Memo2.Lines.Add(inttostr(z.positionY));
 end;
end;

  assignfile(unit1.ProjectFile, GetCurrentDir+'\project\project.mpf');
  rewrite(unit1.ProjectFile,sizeof(unit1.points_array_count));
  write(unit1.ProjectFile,unit1.points_array_count);
  rewrite(unit1.ProjectFile,sizeof(unit1.MapObjects));
  for i:= 0 to unit1.points_array_count do
  begin
    write(unit1.ProjectFile,unit1.MapObjects[i]);
  end;
  closefile(unit1.ProjectFile);

var Mapobjects: array of Tmapobject;
 
procedure saveproject;
var i:integer;
Stream: TFileStream;
begin
  try
     Stream := TFileStream.Create(GetCurrentDir+'\project\project.mpf', fmOpenReadWrite);
   except
     Stream := TFileStream.Create(GetCurrentDir+'\project\project.mpf', fmCreate);
   end;
   points_array_count:=length(unit1.MapObjects);
   stream.WriteBuffer(points_array_count, sizeof(points_array_count));
   for I := 0 to points_array_count-1 do
   begin
      stream.WriteBuffer(unit1.MapObjects[i],sizeof(unit1.TMapObject));
   end;
    stream.Free;
end;
 
 
procedure LOADPROJECT;
var i:integer;
Stream: TFileStream;
begin
  try
     Stream := TFileStream.Create(GetCurrentDir+'\project\project.mpf', fmOpenRead);
   except
     MessageBox(application.handle,Pchar('fail'),Pchar('Error'),MB_ICONERROR); 
     Exit;
   end;
   Stream.ReadBuffer(points_array_count, sizeof(points_array_count));
   setlength(unit1.MapObjects,points_array_count);
   for I := 0 to points_array_count-1 do
   begin
      stream.ReadBuffer(unit1.MapObjects[i],sizeof(unit1.TMapObject));
   end;
end;