PascalABC.net (эмуляция стрелочки в игре "Твистер")

[IvanNikulin]

Ничего конкретного просто может особо прокаченные подскажут что можно добавить в программу для повышения навыков
P.S.
Программа эмитирует работу стрелочки в "Твистере"

program Twister;

uses GraphABC;

type

  Body = (Leg, Arm);
  Side = (Left, Right);
  
const
  Rad : integer = 200; // радиус окружности
  PenWid : integer = 400; // толщина пера
  FontSz : integer = 30; //размер шрифта
  LetWid : integer = 25; //ширина буквы
  ind : integer = 22; // индекс смещения текста

var

  BodyPart : Body;
  BodySide : Side;
  Point : Color;
  ColorSet : array of Color = (clRed, clBlue, clGreen, clYellow);
  Players : array [1..6] of string;
  LetsPlay : string;
  i : integer = 1;
  play : integer;
  
procedure Game(x, y, b : integer);
begin
  
  Point := ColorSet[Low(ColorSet) + Random(Length(ColorSet))];
  
  BodyPart := Body(random(Integer(Leg), Integer(Arm)));
  BodySide := Side(random(Integer(Left), Integer(Right)));
  
  ClearWindow;
  
  SetPenColor(Point);
  Circle(WindowWidth div 2, WindowHeight div 2, Rad);
  
  play := random(1, i - 1);
  
  TextOut
  (
    WindowWidth div 2 - ((BodyPart.ToString.Length * LetWid) div 2 +
    (BodySide.ToString.Length * LetWid) div 2 + (ind * LetWid) + 
    Players[play].Length * LetWid) div 2, 0,
    Players[play] + ' must put his ' +
    BodySide.ToString + ' ' + BodyPart.ToString +
    ' on this point'
   );
  
end;

begin
  SetFontSize(15);
  SetPenWidth(PenWid);
  Window.Maximize;
  randomize;
  
  writeln('Now you can add players/ Maximum is 6.');
  writeln('To add player write his nick end press Enter');
  writeln('To stop additing write "go" and press Enter');
  writeln;
  
  repeat
    readln(LetsPlay);
    if LetsPlay <> 'go' then begin
      Players[i] := LetsPlay;
      Inc(i);
      Writeln(LetsPlay);
    end;
  until(LetsPlay = 'go');
  
  SetFontSize(FontSz);
  
  Game(0, 0, 0);
  OnMouseDown := Game;
end.

______________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.

2) Код нужно оформлять тегом [CODE]..[/СODE] (это кнопочка на панели форматирования с решёточкой #)

Учтите это на будущее.

Модератор.