Морской бой. Оба игрока компьютер

Unit Unit1;
 
Interface
 
Uses
  Windows, Messages, Classes, Controls, Forms, Math;
 
Type
  TForm1 = Class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  End;
  TField=array[0..9,0..9] of integer;
 
Var
  Form1:                 TForm1;
  Field1,Field2:         TField;
  //Цвета
  Colors:                array[-3..3] of Cardinal=($FFFFFF, //Убитый враг
                                                   $FFFFFF, //Убитый свой
                                                   $C8C8C8, //Поле после выстрела
                                                   0,       //не используется
                                                   $C8C8C8, //Поле
                                                   $FF00,   //Свой
                                                   $C8C8C8);//Враг
 
Implementation
{$R *.dfm}
 
//Процедура отрисковки игрового поля
procedure Draw(_x,_y: integer; var Field: TField);
Var
  i,j,x,y: Integer;
Begin
  //Пройдем по массиву и отрисуем поля
  y:=_y;
  For i:=0 To 9 Do
  begin
    x:=_x;
    For j:=0 To 9 Do
    begin
      Form1.Canvas.Brush.Color:=Colors[Field[i,j]];
      Form1.Canvas.Rectangle(x,y,x+21,y+21);
      if Field[i,j]<0 then // Рисуем выстрелы
      Begin
        Form1.Canvas.MoveTo(x   ,y   );
        Form1.Canvas.LineTo(x+20,y+20);
        Form1.Canvas.MoveTo(x+20,y   );
        Form1.Canvas.LineTo(x   ,y+20);
      End;
      inc(x,20);
    end;
    inc(y,20);
  end;
end;
 
//Процедура заполнения игрового поля случайным образом
procedure Fill(var Field: TField);
var
  i,j,k,rand,x,y: integer;
  Ship,P,tmp:     set of byte;
begin
  randomize;
  P:=[];
  for i:=4 downto 1 do
    for j:=1 to 5-i do
    begin
      repeat
        rand:=random(10)*10+random(11-i);          //Выбираем случайное расположение корабля
        Ship:=[max(rand-11,0)..max(rand+i-10,0),
               max(rand-1 ,0)..min(rand+i   ,99),
               min(rand+9,99)..min(rand+i+10,99)];
      until P*Ship=[];                             //Пока не попадётся свободное место
      P:=P+[rand..rand+i-1];      //Добавляем корабль на поле
      if random(2)=0 then         //Поворачиваем поле по часовой стрелке с вероятностью 50%
      begin
        tmp:=[];
        for y:=0 to 9 do
          for x:=0 to 9 do
            if y*10+x in P then
              include(tmp,x*10+y);
        P:=tmp;
      end;
    end;
  for i:=99 downto 0 do
  begin
    Field[0,i]:=1;
    if i in P then
      Field[0,i]:=2+byte(@Field=@Field2);
  end;
end;
 
//отображение поля до выстрела
procedure TForm1.FormPaint(Sender: TObject);
begin
  Draw(0,0,Field1);
  Draw(300,0,Field2);
end;
 
//отображение клеток полей
procedure TForm1.FormCreate(Sender: TObject);
begin
  Fill(Field1);
  Fill(Field2);
end;
End.