Реферат: Игра Мозайка на Делфи Delphi

x1:=4;

y1:=4;

randomize;

for i:=1 to 150 do // варианты расстановки

begin

repeat

x2:=x1;

y2:=y1;

n:=random(4)+1;

case n of

1:dec(x2);

2:inc(x2);

3:dec(y2);

4:inc(y2);

end;

until (x2>=1) and (x2<=4) and (y2>=1) and (y2<=4);

pole[y1,x1]:=pole[y2,x2]; // определим фрагмент перемещения

pole[y2,x2]:=0;

x1:=x2;

y1:=y2;

end;

zx:=x1; // координаты пустой клетки

zy:=y1;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

pic:=TBitMap.Create;

New;

end;