1:
2:
3:
4:
5:
6:
7:

  aEvo = record
    first       : array[1..6] of integer;
    second        : integer;
    third     : integer;
    fourth, fifth : integer;
  end;
  paEvo = ^aEvo;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
   myFile   : File of aEvo; 
             n : paEvo;  
begin
   AssignFile(myFile, 'C:\Test.evo');
   ReWrite(myFile);
   Write(myFile, n^);
   CloseFile(myFile);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

   AssignFile(myFile, 'C:\Test.evo');
   FileMode := fmOpenRead;
   Reset(myFile);

  while not Eof(myFile) do
   begin
    Read(myFile, n^);
     ShowMessage('DIR => '+IntToStr(n^.third)+chr(10)+chr(13)+'Health => '+IntToStr(n^.second));
   end;
 CloseFile(myFile);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

ar
   myFile   : File of aEvo; 
             n : aEvo;   //<---
begin
   AssignFile(myFile, 'C:\Test.evo');
   ReWrite(myFile);
   Write(myFile, n);  //<---
   CloseFile(myFile);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

   AssignFile(myFile, 'C:\Test.evo');
   FileMode := fmOpenRead;
   Reset(myFile);

  while not Eof(myFile) do
   begin
    Read(myFile, n);  //<---
     ShowMessage('DIR => '+IntToStr(n.third)+chr(10)+chr(13)+'Health => '+IntToStr(n.second));
   end;
 CloseFile(myFile);					

1:

new(n);					

1:
2:
3:
4:
5:
6:

  aEvo = packed record
    first       : array[1..6] of integer;
    second        : integer;
    third     : integer;
    fourth, fifth : integer;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

  aEvo = record
    gene       : array[1..6] of integer;
    dir        : integer;
    health     : integer;
    xpos, ypos : integer;
  end;
  paEvo = ^aEvo;

var
  Evolve     : TEvolve;
  bugs       : Tlist;

implementation					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure Init;
var
  t, l : integer;
  p    : paEvo;
  w, h : integer;
  x, y : integer;
begin
  bugs:=tlist.create;
  randomize;

  for t:=1 to 100 do begin
    new(p);
    for l:=1 to 6 do
      p^.gene[l]:=random(10);
    p^.xpos:=random(500);
    p^.ypos:=random(350);
    p^.health:=100;
    p^.dir:=1;
    bugs.add(p);
  end;

  for t:=0 to 99 do begin
    p:=bugs[t];
    x:=p^.xpos;
    y:=p^.ypos;
  end;

  for t:=1 to 6 do begin
    xdir[t]:=round(cos(pi/3*t)*5);
    ydir[t]:=round(sin(pi/3*t)*5);
  end;

end;