{$mode TP}
program tak_023;

uses
  WinCrt,
  Graph;

const
  Path_of_driver = 'F:\BGI';

type
  TPoint = object
    x, y:  integer;
    color: word;
    procedure Init(InitX, InitY: integer; col: word);
    procedure Hide;
    procedure Draw;
    procedure SetX(NewX: integer);
    procedure SetY(NewY: integer);
    function GetX: integer;
    function GetY: integer;
    procedure Move(NewX, NewY: integer);
    procedure RMove(NewX, NewY: integer);
  end;

  procedure TPoint.Init(InitX, InitY: integer; col: word);
  begin
    x     := InitX;
    y     := InitY;
    color := col;
  end;

  procedure TPoint.Hide;
  begin
    PutPixel(x, y, GetBkColor);
    //    SetColor(GetBkColor);
    //    Circle(x, y, 10);
  end;

  procedure TPoint.Draw;
  begin
    PutPixel(x, y, color);
    //    SetColor(color);
    //    Circle(x, y, 10);

  end;

  function TPoint.GetX: integer;
  begin
    GetX := x;
  end;

  function TPoint.GetY: integer;
  begin
    GetY := y;
  end;

  procedure TPoint.SetX(NewX: integer);
  begin
    x := NewX;
  end;

  procedure TPoint.SetY(NewY: integer);
  begin
    y := NewY;
  end;

  procedure TPoint.Move(NewX, NewY: integer);
  begin
    Hide;
    x := NewX;
    y := NewY;
    Draw;
  end;

  procedure TPoint.RMove(NewX, NewY: integer);
  begin
    Self.move(x + NewX, y + NewY);
  end;

  procedure Coords(a: char; var NewX, NewY: integer; h: integer);
  begin
    if a = #0 then
    begin
      a := readkey;
      case a of
        #80:
        begin
          Inc(NewY, h);
          if NewY > GetMaxY - 20 then
            NewY := 20;
        end;
        #75:
        begin
          Dec(NewX, h);
          if NewX < 10 then
            NewX := GetMaxX - 10;
        end;
        #77:
        begin
          Inc(NewX, h);
          if NewX > GetMaxX - 10 then
            NewX := 10;
        end;
        #72:
        begin
          Dec(NewY, h);
          if NewY < 20 then
            NewY := GetMaxY - 20;
        end;
      end;
    end;
  end;

  procedure dCoords(a: char; var dX, dY: integer; h: integer);
  begin
    dX := 0;
    dY := 0;
    if a = #0 then
    begin
      a := readkey;
      case a of
        #80:
        begin
          dY := h;
        end;
        #75:
        begin
          dX := -h;
        end;
        #77:
        begin
          dX := h;
        end;
        #72:
        begin
          dY := -h;
        end;
      end;
    end;
  end;

var
  gd, gm, NewX, NewY, h, i: integer;
  a:   char;
  mas: array[1..100] of TPoint;
  grError: integer;
begin
  Randomize;
  //  gd := Detect;
  gd := VGA;
  gm := VGAHi;
  InitGraph(gd, gm, Path_of_driver);
  grError := GraphResult;
  if grError <> grok then
  begin
    Write('error:', GraphErrorMsg(grError));
    halt;
  end;

  NewX := GetMaxX div 2;
  NewY := GetMaxY div 2;
  h    := 2;

  for i := low(mas) to high(mas) do
  begin
    mas[i].Init(Random(GetMaxX) + 1, Random(GetMaxY) + 1, random(5) + 1);
    mas[i].Draw;
  end;

  repeat
    repeat
    until KeyPressed;
    a := readkey;
    dCoords(a, NewX, NewY, h);
    for i := low(mas) to high(mas) do
      mas[i].RMove(NewX, NewY);
  until a = #27;

  closegraph;
end.