Membuat Tulisan Berjalan Pada Pascal

uses crt;

var

x,y:byte;

begin

clrscr;

x:=1;

y:=5;

repeat

delay(200);

gotoxy(x-1,y);write(' ');

gotoxy(x,y);write('maju');

x:=x+1;

until(x>25);

x:=25;

y:=10;

repeat

delay(200);

gotoxy(x+15,y);write(' ');

gotoxy(x,y);write('mundur');

x:=x-1;

until(x=1);

x:=1;

y:=12;

repeat

delay(200);

gotoxy(x,y-1);write(' ');

gotoxy(x,y);write('bawah');

y:=y+1;

until(y>25);

x:=20;

y:=25;

repeat

delay(200);

gotoxy(x,y+1);write(' ');

gotoxy(x,y);write('atas');

y:=y-1;

until(y<11);

readln;

end.