Lập trình Dòng chữ chạy ngang qua màn hình


Viết chương trình cho dòng chữ chạy ngang qua màn hình(căn giữa màn hình) cho tới khi nhấn một phím bất kì thì dừng (chương trinh viết sử dụng các thủ tục - vì mình đang học phần thủ tục).
Các bạn viết cách ngắn gon giúp mình nhé! Cám ơn các bạn trước. Bài này thực ra ở sách giáo khoa 11 có viết nhưng mình thấy hơi dài, rườm dà, có cách khác ngắn gọn hơn chứ.
PHP Code:
uses  crt;
var   i:integer;
      a:string;
begin
      a:='Chao Mung Ban Den Dien Dan Son Tinh';
      for i:=1 to 78 do
            a:=' '+a;
      a:=a+a;
      clrscr;
      repeat
            inc(i);
            gotoxy(1,12);
            write(copy(a,i,79));
            delay(150);
            if i=120 then
            begin
                  i:=0;
                  clrscr;
            end;
      until keypressed;
end. 

Có thể bạn quan tâm

Thông báo & Quảng Cáo