program SvetelneNoviny;
uses Crt;
const
{ zakladni konstanty }
DelkaNovin = 20; { delka svetelnych novin }
RadekNovin = 5; { umisteni svetelnych novin - radek }
SloupecNovin = 30; { umisteni svetelnych novin - sloupec }
MeziZnaky = 100; { prodleva mezi jednotlivymi znaky v [ms] }
var
Zprava : string; { zprava do svetelnych novin }

procedure JedenBeh(Beh : string);
{ jeden prubeh zpravy svetelnymi novinami }
var
s : string;
i : byte;
begin
s := '';
for i := 1 to DelkaNovin do s := s+' ';
s := s+Beh+' ';
i := 1;
repeat
GotoXY(SloupecNovin,RadekNovin);
write(copy(s,i,DelkaNovin));
Delay(MeziZnaky);
Inc(i);
until KeyPressed or (i > length(s))
end;

begin
TextBackground(Blue);
ClrScr;
TextColor(Yellow); TextBackground(Red);
JedenBeh('Svetelne noviny!');
TextBackground(Blue);
GotoXY(1,RadekNovin+2);
write('Zadej zpravu: '); readln(Zprava);
GotoXY(1,RadekNovin+2); ClrEol; { vymazeme vstup }
if Zprava = '' then begin
writeln('Neni co vypisovat');
Zprava[1] := ReadKey;
end
else begin
TextBackground(Red);
repeat { cyklicky opakujeme prubeh zpravy novinami }
JedenBeh(Zprava);
until KeyPressed;
end;
TextColor(LightGray); TextBackground(Black);
Clrscr;
end.

Maturita.cz - referát (verze pro snadný tisk)
http://www.maturita.cz/referaty/referat.asp?id=1293