[NumLock]

Код:

var
  pole: array [0..8] of Byte;

function CheckEnd: Boolean;
begin
  Result:=(pole[0]=2) and (pole[1]=2) and (pole[2]=2) and (pole[3]=2)
          and (pole[4]=0) and
          (pole[5]=1) and (pole[6]=1) and (pole[7]=1) and (pole[8]=1);
end;

initialization
  pole[0]:=1;
  pole[1]:=1;
  pole[2]:=1;
  pole[3]:=1;
  pole[4]:=0;
  pole[5]:=2;
  pole[6]:=2;
  pole[7]:=2;
  pole[8]:=2;