Membuat Tulisan Berjalan Di Pascal

Baik disini saya akan coba membagikan cara membuat tulisan berjalan di program pascal.
Baik, langsung saja kalian ketik atau copy kode dibawah ini diprogram pascal:

uses crt;
var
        teks : string;
        x,y,i,panjang: byte;
        turun, kanan : boolean;