Cài đặt chương trình chữ chạy với TUBOR PASCAL

chương trình 1
uses crt;
var
st,st1 :string;
ch:char;
begin
clrscr;
Writeln('Nhap 1 xau ban muon no chay ');
readln(st);
st:=' '+st;
st1:=st;
ch:='0';
repeat
while (st<>'')and(not keypressed) do
begin
clrscr;
write(st);
delete(st,1,1);
delay(700);
end;
st:=st1;
until keypressed;
end.

hoặc với trương trình sau:

uses crt;
var st:string;
begin
clrscr;
repeat
write('Nhap mot xau bat ki:');readln(st);
until length(st)>0;


st:=st+' ';
repeat
clrscr;
St:=copy(st,length(st),1)+st;
Delete(st,length(st),1);
write(st);
delay(200);
until keypressed;
readln;
end.

nhớ thank đấy

các ban có thể coppy-paste và soạn thảo trên trình duyệt TUBOR PASCAL để chạy các dòng kí tự mà bạn muốn

thank khuong nha!!!!