Составить программу, изображающую бегущую строку (справа налево) с каким-нибудь текстом

uses graphABC;
 
var
  x, y: integer;
  s: string;
  
begin
  x := windowwidth;
  y := windowheight div 2;
  s := 'О, сколько нам открытий чудных готовят просвещенья дух и опыт,'
       +' сын ошибок трудных, и гений, парадоксов друг, и случай, бог изобретатель...';
  setfontcolor(clgreen);
  setfontsize(12);
  lockdrawing;
  repeat
    clearwindow;
    textout(x, y, s);
    dec(x);
    sleep(10);
    redraw
  until false
end.

uses crt;
Procedure RunSt(Var S : String);
Begin
  S:=Copy(S,2,Length(S)-1)+S[1];
end;
var St:string;
begin
hidecursor;
St:='   О, сколько нам открытий чудных готовят просвещенья дух и опыт, сын ошибок трудных, и гений, парадоксов друг, и случай, бог изобретатель...';
TextAttr:=16*4+10;
textsize(12);
while length(St)<80 do St:=' '+St;
repeat
  GoToXY(1,13);
  Write(copy(St,1,80));
  Sleep(200);
  RunSt(St);
until keypressed
end.