Написать программу, имитирующую бегущую строку на экране (предусмотрев переход с одной строки на другую) — Pascal(Паскаль)

uses crt;
var st:string;
i:integer;
begin
 st:='Cyberforum';
 for i:=1 to 2*length(st) + 1do
 begin
  clrscr;
  writeln(st);
  delay(300);
  st:=copy(st,2,length(st)-1)+st[1];
 end;
 readln;
end.