Организовать движение строки по периметру экрана

var c:char;
BEGIN
var n:=ReadlnInteger('Если надо организовать движение вправо нажмите 1, иначе 0:');
var s:=ReadlnString(); //читаем строку
var b:=n=1; //если введена 1, то b будет true
IF b THEN begin
  Repeat
  c:=s[Length(s)];
  For var i:=Length(s)-1 downto 1 do
    s[i+1]:=s[i];
  s[1]:=c;
  Writeln(s);
  Until false;
  end
     ELSE begin
   Repeat
   c:=s[1];
   For var i:=1 to Length(s)-1 do
     s[i]:=s[i+1];
   s[Length(s)]:=c;
   Writeln(s);
   Until false;
   end;
END.

uses
  GraphABC;
 
var
  H, W: integer;
  x, y, speed: integer;
  st: string;
 
procedure KeyDown(Key: integer);
begin
  if key = 27 then window.Close;
end;
 
begin
  SetWindowCaption('Графика');
  H := 200;
  W := 800;
  SetWindowSize(W, H);
  readln(st);
  speed := 10;
  x := W;
  y := H div 2;
  SetFontSize(14);
  setfontcolor(clRed);
  while true do
  begin
    Window.Clear();
    if (x + speed > 0) then
      x := x - speed
    else
    x := W;
    y := (H div 2) + Round(Sin(x / 15) * 25);
    TextOut(x, y, st);
    Sleep(100);
    OnKeyDown := KeyDown;
  end;
end.

uses
  GraphABC;
  
const
  Message = 'Эта строка сообщения, которая будет двигаться по краю экрана по' +
            'часовой стрелке пока не будет нажата клавиша ESC...';
  Width   = 500;
  Height  = 500;
  Rows    = 20;
  Cols    = 25;
  FontSize= 20;
 
var
  a : array [,] of Integer;
  W, H : Integer;
 
procedure DrawChar(X, Y : Integer; C : String);
begin
  DrawTextCentered(X * W, Y * H, X * W + W, Y * H + H, C);
end;
  
procedure ShowText(P : Integer);
begin
  
  Window.Clear(RGB(0,65,100));
  for var Row := 0 to Rows - 1 do
    for var Col := 0 to Cols - 1 do
      if a[Row, Col] > 0 then
        if (P - a[Row, Col] < Message.Length) and (P - a[Row, Col] > 0) then
          DrawChar(Col, Row, Message[P - a[Row, Col]]);
  Redraw;
end;
  
procedure KeyDown(Key : Integer);
begin
  if Key = 27 then
    Window.Close;
end;
 
begin
  Window.Init(0, 0, Width, Height, RGB(0,65,100));
  Font.Color := RGB(255,255,0);
  Font.Name  := 'Times New Roman';
  Font.Size  := FontSize;
  Window.Caption := 'Выход из программы - ESC';
  onKeyDown := KeyDown;
  
  W := Width div Cols;
  H := Height div Rows;
  SetLength(a, Rows, Cols);
  a[Rows - 1, Cols - 1] := 1;
  for var Col := Cols - 2 downto 0 do a[Rows - 1, Col] := a[Rows - 1, Col + 1] + 1;
  for var Row := Rows - 2 downto 0 do a[Row, 0] := a[Row + 1, 0] + 1;
  for var Col := 1 to Cols - 1 do a[0, Col] := a[0, Col - 1] + 1;
  for var Row := 1 to Rows - 2 do a[Row, Cols - 1] := a[Row - 1, Cols - 1] + 1;
  var maxP := a[Rows - 2, Cols - 1] + Message.Length;
  
  LockDrawing;
  var P := 0;
  repeat
    P += 1;
    if P > maxP then P := 0;
    ShowText(P);
    Sleep(150);
  until False;
end.