Как написать программу "бегущая строка" на языке паскаль?

Uses Crt;
Procedure Beg(x,y,Len : Byte; S : String);
Var i : Byte;
Begin
  For i:=1 to Len do S:=' '+S+' ';
  Repeat
    GoToXY(x,y);
    Writeln(Copy(S,1,Len));
    Delete(S,1,1);
    Delay(100);
  Until Length(S)<Len;
end;

Begin
  Beg(10,10,20,'Внимание! Совершает посадку рейс №123 маршрут Москва-Владивосток встречающих пройти к выходу терминала №3.');
end.