FlyIn
You could use small amounts of animated text to add variety to a console program. Program FlyIn makes a text heading fly in to the middle of the window from the left.
program FlyIn; {$mode objfpc}{$H+} uses SysUtils, CRT; const SLEEP_TIME = 15; var i : integer; RightString : string; Heading : string = 'Introduction'; HeadingLength : integer; begin HeadingLength := length(Heading); //Move the heading one character at a time onto the screen for i := 1 to HeadingLength do begin RightString := rightStr(Heading, i); GoToXY(1, 1); sleep(SLEEP_TIME); writeln(RightString); end; //Move heading to the centre, using spaces to redraw background for i := 1 to (windMaxX - HeadingLength) DIV 2 do begin goToXY(1, 1); Heading := ' ' + Heading; write(Heading); sleep(SLEEP_TIME); end; writeln; readln; end.