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

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