我实在无聊打了一个这种程序

uses crt;
var i,j,k:longint;
s:string;
ch:char;
begin
while j=j do
begin
clrscr;
readln(s);
for i:=1 to length(s) do
begin
if s[i]<>' ' then
begin
textcolor(lightred);
gotoxy(30+i,11);
write(s[i]);
delay(300);
textcolor(yellow);
gotoxy(30+i,11);
write(s[i]);
delay(150);
end;
end;
textcolor(white);
ch:=readkey;
if ch='p' then break;
end;
end.

输入一个字符串，再按一下回车你就知道什么鬼了

如果字符串间有空格间隔会有点鬼畜

还有While j=j do，这个...楼主不能好好的While true do吗？

放图