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

    if Waqua.aBoard[x, y].Sort = srtShark then
    begin
      tmpAge := Waqua.aBoard[x, y].Age;
      tmpSatt := Waqua.aBoard[x, y].Satt;
Caption:=inttostr(tmpsatt); //gibt immer den Wert 0 (für srtWater) zurück.

//...
      //Hier srtShark auf ein anderes Feld setzen und dann:
      Waqua.aBoard[x, y].Age := tmpAge;    //x, y gibt das Zielfeld an, kann auch x-1 oder y+1 usw. sein
      Waqua.aBoard[x, y].Satt := tmpSatt;  //x, y gibt das Zielfeld an, kann auch x-1 oder y+1 usw. sein
//...					

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

var
  Board_Alt,Board_neu: tBoard;
  p_BAlt,p_BNeu,p_temp : tpBoard;//^tBoard;

...
procedure Verarbeitung( p_Neu,pAlt:tpBoard); 
...
p_neu^[x,y] := f(p_Alt,x,y);
ausgabe(p_neu);
tausche(p_neu,p_alt);
end;					

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:

type
  TSort = (srtWater, srtShark, srtFish, srtBorder);

type
  TElement = packed record
      {aBoard hat sichtbare Felder waagr. und senkr. von 0..69
             Nicht sichtbare Randfelder
                      |   |   |   |   }
      aBoard: array [-1..70, -1..70] of record  {Gilt individuell für jedes der Sort's}
      {  X-Koordinate
         |  Y-Koodinate
         |  |  Lebensalter
         |  |  |    Satt
         |  |  |    |     Ausrichtung (links/rechts)
         |  |  |    |     |
         |  |  |    |     |
         |  |  |    |     |           }
         X, Y, Age, Satt, Dir: Integer;
      {  Wasser, Hai, Fisch, Rand
         |                            }
         Sort: TSort;
    end;
    Plankton: Integer;  {Gilt für das gesamte Board}
  end;
//...
var
  Form1: TForm1;
  Waqua: TElement;
//...					

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

  for x := 0 to iMaxH-1 do
    for y := 0 to iMaxV-1 do
      if not RunRightToLeft then break;

    for x := iMaxH-1 downto 0 do
      for y := iMaxV-1 downto 0 do
        if not RunLeftToRight then break;					

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

  {--------------------------- Von rechts nach links --------------------------}
  function RunRightToLeft: Boolean;
  begin
    Result := True;

    if Waqua.aBoard[x, y].Sort = srtShark then
    begin
      tmpAge := Waqua.aBoard[x, y].Age;
      tmpSatt := Waqua.aBoard[x, y].Satt;
Caption:=inttostr(tmpAge)+' '+inttostr(tmpSatt);  //Das stimmt nicht mehr, sobald der Timer srtShark auf ein anderes Feld bewegt hat!					

1:

  function RunRightToLeft(x,y :integer): Boolean;