Основы программирования в паскале

      {Выбирает  объект с помощью Tab и перемещает его по экрану}

              var

               stop:Boolean; {Признак нажатия Esc}

              const

                       D=5; {Шаг смещения фигур}

              Begin

                       Stop:=False;

       {Цикл опроса клавиатуры}

                 repeat

                             case ReadKey of {Читаем код нажатой клавиши} 

                                #27: Stop:=True; {Нажата Esc}

                                #9:begin {Нажата Tab}

                                  inc(ActiveObj);

                                if ActiveObj>3 then ActiveObj:=1

                              end;

                                #0:  case ReadKey of

                                                #71: MoveActiveObj(-D,-D); {Влево и вверх}

                                                #72: MoveActiveObj(0, -D); {Вверх}

                                               #73: MoveActiveObj(D, -D); {Вправо и вверх}

                                                #75: MoveActiveObj(-D, 0); {Влево}

                                                #77: MoveActiveObj(D,  0); {Вправо}

                                                #79: MoveActiveObj(-D, D); {Влево и вниз}

                                                #80: MoveActiveObj(0,  D); {Вниз}

                                                #81: MoveActiveObj(D,  D); {Вправо и вниз} 

                                     end

                         end;

                          ShowAll;

                     Until Stop;

                end; {TGraphApp.Run}

{————————}

     Procedure TGraphApp.Done; {Закрывает графический режим}

               begin

                  CloseGraph;

                     end; {TGraphApp.Done}

           Procedure TGraphApp.ShowAll; {Показывает все графические объекты}

     Var

        k:integer;

                  begin

              for k:=1 to Npoints do Points[k].Show;

                  Line.Show;

                  Rect.Show;

                  Circ.Show;

                  end; 

           Procedure TgraphApp.MoveActiveObj; {Перемещает активный графический объект}

               begin

                  case ActiveObj of

                     1: Rect.MoveTo(dX,dY);

                         2: Circ.MoveTo(dX,dY);

                         3: Line.MoveTo(dX,dY);

                    end

               end;

end. 

      {Основная программа будет предельно простой:}                

      Program Graph_Objects;

      Uses GraphApp;

      var

      App: TGraphApp; { Получив это указание, компилятор зарезервирует нужный объем памяти для размещения всех полей объекта TGraphApp. }

        Begin

      App.Init;

      App.Run;

      App.Done

      end.

      {Согласитесь, что введение лишь шести зарезервированных слов, из которых действительно необходимыми являются три (object, constructor и virtual}, весьма небольшая плата за мощный инструмент создания современного программного обеспечения.}