Написать программу, имитирующую игру в теннис

uses crt,GraphABC,Events,Utils;                 //необходимые библиотеки подключены
var pr,px,py,kx,ky,ku,kc,pc,s: integer;          //переменные: положение ракетки, координаты мяча, коэффициенты отражения, положение ракетки компьютера
    c: char;                                //выбор пункта из меню
procedure KeyDown(Key: integer);           //процедура обработки нажтия клавиши
begin
  case Key of
VK_Up: if pr>10 then pr:=pr-10;           //если вверх, и если ракетка не достигла края экрана, сместить координаты ракетки на 10 вверх
VK_Down: if pr<490 then pr:=pr+10;        //то же, только вниз
VK_LEFT: if pc>10 then pc:=pc-10;
VK_right: if pc<490 then pc:=pc+10;
  end;
end;
 
procedure Pm;                             //процедура определения координат мячика
begin
if px<10 then                             //обработка левой стороны игрового поля
   begin
   if (py>pc-20) and (py<pc+20) then kx:=kx*(-1) else  //если координаты мяча совпадают с координатами ракетки, меняем коэффициент смешения по х на противоположный
      begin                                 //иначе
      showmessage('Вы упустили мячик!');    //выводим сообщение
      inc(kc);                              //увеличиваем счетчик упущенных мячей
      px:=485;                               //возвращаем мяч в исходную позицию у противоположной стенки
      py:=250;
      end;
   s:=random(2);
   if s=1 then ky:=ky*(-1);
   end;
if (py<10) or (py>490) then ky:=ky*(-1);  //если достиг стенки верхней или нижней - поменять коэффициент смещения на противоположный
if px>590 then                            //если достиг правой (игрока) стенки, проверяем
   if (py>pr-20) and (py<pr+20) then kx:=kx*(-1) else  //если координаты мяча совпадают с координатами ракетки, меняем коэффициент смешения по х на противоположный
   begin                                 //иначе
   showmessage('Вы упустили мячик!');    //выводим сообщение
   inc(ku);                              //увеличиваем счетчик упущенных мячей
   px:=15;                               //возвращаем мяч в исходную позицию у противоположной стенки
   py:=250;
   s:=random(2);
   if s=1 then ky:=ky*(-1);
   end;
px:=px+kx;                               //смещаем координаты на коэффициенты смещения
py:=py+ky;
end;
 
procedure Menu;
begin
textout(150,70,'Выбор режима: 1 игрок, 2 игрока');
c:=readkey;
textout(420,70,c);
readln;
end;
 
begin
hidecursor;
setwindowsize(600,500);                 //размер окна
menu;                                   //меню игры
lockdrawing;                            //запрет прорисовки в окне (мигание убираем)
kx:=5; ky:=1; px:=15; py:=250; pc:=250; pr:=250; //задаем координаты смещения и позицию мяча
repeat                                  //цикл с постусловием
  clearwindow;                          //очистить окно
  setbrushcolor(clgreen);               //цвет кисти зеленый
  rectangle(5,5,595,495);               //прямоугольник - поле
  Pm;                                   //процедура определения координат мяча
  setbrushcolor(clwhite);               //цвет кисти - белый
  circle(px,py,10);                     //мяч
  OnKeyDown:=KeyDown;                   //процедура нажатия клавиши
  if c='1' then                         // 1-1игрок, в остальных случаях 2 игрока
   pc:=py;                                //ракетка противника следует за мячом неотступно...
  setbrushcolor(clblack);               //цвет кисти - черный
  rectangle(592,pr-20,597,pr+20);       //ракетки
  rectangle(3,pc-20,8,pc+20);
  sleep(25);                             //задержка
  redraw;                               //перерисовка
until (ku=5) or (kc=5);                 //цикл повторяется до 5 пропущенных мячей
end.