Создать бегущую строку по периметру в паскале

Данный код на языке Паскаль (Pascal) выглядит так:

uses crt;

Procedure RunSt (Var S : String) ;

Begin

S:=Copy (S, 2, Length (S) - 1) + S[1];

end;

var St:string;

begin

hidecursor;

St:=' Test running string ';

while length (St) <80 do

St:=' '+St;

repeat

GoToXY (1,13) ;

Write (St) ;

Sleep (100) ;

RunSt (St) ;

until keypressed

end.