Сделать победу в виде бегущей строки (после 7 очков)

uses
  GraphABC, Events;
 
var
  raketka, myachX, myachY, otrazhX, otrazhY, pak_2, pak, raketka_2: integer;
  schet: string;
 
procedure KeyDown(Key: integer);
begin
  case Key of
    VK_Up: if raketka > 20 then raketka := raketka - 10;           
    VK_Down: if raketka < 480 then raketka := raketka + 10;        
    VK_W: if raketka_2 > 20 then raketka_2 := raketka_2 - 10;
    VK_S: if raketka_2 < 480 then raketka_2 := raketka_2 + 10;
  end;
end;
 
procedure KoordinatyMyacha;
begin
  if myachX < 19 then                             
    if (myachY > raketka_2 - 20) and (myachY < raketka_2 + 20 ) then otrazhx := -otrazhx else 
    begin
      inc(pak);                              
      myachX := 585;                           
      myachY := 250;
    end;
    otrazhY := -otrazhY;
  if (myachY < 10) or (myachY > 490) then otrazhY := -otrazhY;  
  if myachX > 580 then                            
    if (myachY > raketka - 20 ) and (myachY < raketka + 20 ) then otrazhx := -otrazhx else  
    begin
      inc(pak_2);                           
      myachX := 15;                             
      myachY := 250;
    end;
  otrazhY := -otrazhY;
  myachX := myachX  + otrazhx;                               
  myachY := myachY + otrazhY;
end;
 
procedure start;
begin
  repeat                                  
    clearwindow; 
    setbrushcolor(clblue);
    rectangle(10, 10, 590, 490);
    KoordinatyMyacha;
    schet := inttostr(pak_2) + ':' + inttostr(pak);
    textout(240, 200, schet);
    setbrushcolor(clred); 
    circle(myachX, myachY, 10);                   
    OnKeyDown := KeyDown;                   
    setbrushcolor(clblack);      
    rectangle(590, raketka - 20, 600, raketka + 20);       
    rectangle(0, raketka_2 - 20, 10, raketka_2 + 20);
    sleep(10);
    redraw;
  until (pak = 7) or (pak_2 = 7);
end;
 
begin
  SetFontSize(70);
  setfontColor(clblack);
  lockdrawing;                           
  setwindowsize(600, 500);               
  pak := 0; pak_2 := 0;otrazhx := 15; otrazhY := 0; myachX := 25; myachY := 250; raketka_2 := 250; raketka := 250; 
  start;
end.