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

Данный код на языке Паскаль (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.