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

    for x := 0 to iMaxH do
      for y := 0 to iMaxV do
      begin
        if (aBoard[x, y] = elBlock) then  //Element elBlock soll an das Element elPlayer heranrücken 
        begin
          if x_von elBlock < x_von_elPlayer then //Pseudocode - so irgendwie muss es aussehen
          //...					

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

 if (aBoard[x, y] = elBlock) then
    begin
      //=> Block an der Stelle X/Y, ich nenne es mal Block.X, Block.Y
      //   Player an der Stelle Player.X,Player.Y
      Diff.X:=Block.X-Player.X;  //Diff: TPoint
      Diff.Y:=Block.Y-Player.Y;
 
      Diff.X:=sgn(Diff.X); //auf 1 normieren, Vorzeichen bleibt erhalten
      Diff.Y:=sgn(Diff.Y);

      if (aBoard[Diff.X+Block.X,Diff.Y+Block.Y]=elFree)or(aBoard[Diff.X+Block.X,Diff.Y+Block.Y]=elPlayer){...} then
        //block verschieben nach [Diff.X+Block.X,Diff.Y+Block.Y]

      if (Block.X=Player.X)and(Block.Y=Player.Y) then
        //Spieler zermatscht
    end;					

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

    for x := 0 to iMaxH-1 do
      for y := 0 to iMaxV-1 do
      begin
        l1 := x;
        t1 := y;
        if aBoard[x, y] = elBlock then
        begin
          if x < l then Inc(l1)
          else          Dec(l1);
          if y < t then Inc(t1)
          else          Dec(t1);

          if (aBoard[l1, t1] <> elFree) then break;
//Hier wird elBlock dann auf l1, t1 gesetzt
//...