5000 Elefantes (Pascal)

I'm all about old school... -_-  El codigo a continuacion reproduce en la pantalla la letra de la cancion infantil, de uno a cinco mil elefantes.  Pascal es, a estas alturas, una lengua tan muerta como el latin o el arameo, pero mientras funcione, funciona.  Por lo tanto, helo aqui.

program CincoMilElefantes (output);
{chorrocientosmil elefantes
* by jon tohrs
* send me money -_-}

const
  PHANTSTART = 1;
  PHANTSEND = 5000;

type
  tPhants = PHANTSTART..PHANTSEND;

var
  phants : tPhants;

begin
  for phants := PHANTSTART to PHANTSEND do
  begin
    if phants > 1 then
    begin
      writeln (phants,' elefantes');
      writeln ('se columpiaban');
      writeln ('sobre la tela');
      writeln ('de una araña');
      writeln ('como veian');
      writeln ('que resistia');
      writeln ('fueron a llamar');
      writeln ('a otro elefante...');
      writeln
    end
    else
    begin
      writeln (phants,' elefante');
      writeln ('se columpiaba');
      writeln ('sobre la tela');
      writeln ('de una araña');
      writeln ('como veia');
      writeln ('que resistia');
      writeln ('fue a llamar');
      writeln ('a otro elefante...');
      writeln    
    end
  end
end.