unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
  Math;

const FieldWidth = 30; { Ширина и }
  FieldHeight = 25; { высота поля }

type
  TField = array [0..FieldWidth + 1, 0..FieldHeight + 1] of Boolean;

  { TForm1 }

  TForm1 = class(TForm)
    Screen: TPaintBox;
    StartStopBtn: TButton;
    procedure ScreenPaint(Sender: TObject);
    procedure StartStopBtnClick(Sender: TObject);
  private
    var Rx, Ry: Integer; { Ширина, высота клекти }
      Field: TField;
      x, y, s: Integer;
  public

  end;

var
  Form1: TForm1;
  IsRunning: Boolean;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.StartStopBtnClick(Sender: TObject);
  var i, j: Integer;
begin
  if IsRunning then
  begin
    IsRunning := false;
    StartStopBtn.Caption := 'Пуск';
    Exit;
  end;

  StartStopBtn.Caption := 'Стоп';
  IsRunning := true;

  Rx := (Screen.Width div FieldWidth) div 2; { Определяем размеры клетки }
  Ry := (Screen.Height div FieldHeight) div 2;

  Randomize;

  for i := 0 to FieldWidth + 1 do { Очистка поля }
    for j := 0 to FieldHeight + 1 do
      Field[i, j] := false;
  
  for i := 1 to FieldWidth do { Создаем начальную конфигурацию }
    for j := 1 to FieldHeight do
      if Random(4) = 0 then { В среднем будет одна инфузория }
      begin { на четыре клетки }
        Field[i, j] := true;
      end;

  while IsRunning do { Основной цикл }
  begin
    x := RandomRange(1, FieldWidth); { Выбираем случайную клекту }
    y := RandomRange(1, FieldHeight);

    s := 0; { Подсчитываем соседей }
    for i := -1 to 1 do
      for j := -1 to 1 do
        s := s + Ord(Field[x + i][y + j]);
    s := s - Ord(Field[x][y]);

    if (Field[x, y] = false) and (s > 2) then { Создаем новую инфузорию }
    begin
      Field[x, y] := true;
    end
    else if (Field[x, y] = true) and ((s < 3) or (s > 4)) then { Удаляем }
    begin
      Field[x, y] := false;
    end;

    Screen.Invalidate;

    Sleep(5);
    Application.ProcessMessages;
    if Application.Terminated then Exit;
  end
end;

procedure TForm1.ScreenPaint(Sender: TObject);
  var i, j: Integer;
begin
  Screen.Canvas.Pen.Color := clBlue;

  for i := 1 to FieldWidth do
  begin
    for j := 1 to FieldHeight do
    begin
      if Field[i][j] then
      begin
        Screen.Canvas.Pen.Color := clBlue;
        Screen.Canvas.Ellipse((2 * i - 1) * Rx - Rx, (2 * j - 1) * Ry - Ry,
                (2 * i - 1) * Rx + Rx, (2 * j -1) * Ry + Ry);
      end;
    end;
  end;
end;

end.