Игра Чет- нечет

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
//qplayer - количество очков игрока, qcomputer - количество очков компбютера.
qplayer,qcomputer:byte;
//qnumber - загаданное число.
qnumber:integer;
implementation
 
{$R *.dfm}
 
//Вывод очков и загадывание числа.
procedure qshowscores;
begin
with form1 do
begin
//Переводим количество очков qplayer в строку функцией inttostr и присваиваем её метке.
label3.Caption:=inttostr(qplayer);
//Переводим количество очков qcomputer в строку функцией inttostr и присваиваем её метке.
label5.Caption:=inttostr(qcomputer);
end;
//Инициализируем генератор случайных чисел.
randomize;
//Получаем случайное число от 0 до 99 и присваиваем его qnumber.
qnumber:=random(100);
end;
 
//Увеличение количества очков, где m = 0, если чётное число и m = 1, если нечётное число..
procedure qincscores(m:byte);
begin
//Если загаданное число qnumber чётное или нечётное (зависит от m), то
if qnumber mod 2=m then
//Увеличиваем количество очков игрока.
qplayer:=qplayer+1
else
//Иначе увеличиваем количество очков компьютера.
qcomputer:=qcomputer+1;
end;
 
//Начало новой игры.
procedure qgamestart;
begin
//Количество очков игрока равно 0.
qplayer:=0;
//Количество очков компьютера равно 0.
qcomputer:=0;
//Выводим очки и загадываем число.
qshowscores;
end;
 
//Конец игры.
procedure qgameend;
begin
//Если количество очков игрока равно 8, то
if qplayer=8 then
//Выводим сообщение о победе игрока.
showmessage('Игрок выиграл!')
//Иначе если количество очков компьютера равно 8, то
else if qcomputer=8 then
//Выводим сообщение о победе компьютера.
showmessage('Компьютер выиграл!');
//Если количество очков игрока или компьютера равно 8, то
if (qplayer=8)or(qcomputer=8) then
//Начинаем новую игру.
qgamestart;
end;
 
//Нажата кнопка "Обнулить".
procedure TForm1.Button3Click(Sender: TObject);
begin
//Начинаем новую игру.
qgamestart;
end;
 
//Нажата кнопка "Чёт".
procedure TForm1.Button1Click(Sender: TObject);
begin
//Увеличение количества очков при чётном числе.
qincscores(0);
//Выводим очки и загадываем число.
qshowscores;
//Проверяем на конец игры.
qgameend;
end;
 
//Нажата кнопка "Нечет".
procedure TForm1.Button2Click(Sender: TObject);
begin
//Увеличение количества очков при нечётном числе.
qincscores(1);
//Выводим очки и загадываем число.
qshowscores;
//Проверяем на конец игры.
qgameend;
end;
 
//Нажата кнопка "Закрыть".
procedure TForm1.Button4Click(Sender: TObject);
begin
//Закрываем программу.
close;
end;
 
//Создание формы.
procedure TForm1.FormCreate(Sender: TObject);
begin
//Начинаем новую игру.
qgamestart;
end;
 
end.

//Вывод очков и загадывание числа.
procedure qshowscores;
begin
with form1 do
begin
//Переводим количество очков qplayer в строку функцией inttostr и присваиваем её метке.
label3.Caption:=inttostr(qplayer);
//Переводим количество очков qcomputer в строку функцией inttostr и присваиваем её метке.
label5.Caption:=inttostr(qcomputer);
end;
//Инициализируем генератор случайных чисел.
randomize;
//Получаем случайное число от 0 до 99 и присваиваем его qnumber.
qnumber:=random(100);
end;

procedure name;//Процедура с названием name.
begin//Начало исполняемого кода.
showmessage('Hello!');//Вывод окна с сообщением 'Hello!' и кнопкой OK.
end;//Конец исполняемого кода.

procedure TForm1.FormCreate(Sender: TObject);//Событие в начале запуска программы. Тоже процедура.
begin
name;//Код который обозначает name будет выполнен здесь. То есть вывод сообщения 'Hello!'.
end;

procedure name(s:string);//Процедура с названием name, где s - выводимое сообщение.
begin//Начало исполняемого кода.
showmessage(s);//Вывод окна с сообщением s и кнопкой OK.
end;//Конец исполняемого кода.

procedure TForm1.FormCreate(Sender: TObject);//Событие в начале запуска программы. Тоже процедура.
begin
name('Hello!');//Выводит 'Hello!'.
name('World!';//Выводит 'World!'.
end;