Algoritmo que exiba duas datas em ordem crescente

Criar um algoritmo que receba duas datas (dia, mês e ano) e as exiba em ordem crescente

Pseudocódigo:

programa exercicio16
var
   dia, dia2, mes, mes2, ano, ano2 : inteiro;
inicio
   leia dia;
   leia mes;
   leia ano;
   leia dia2;
   leia mes2;
   leia ano2;
   se (ano2 > ano) entao
       escreva dia, "/", mes, "/", ano;
       escreva dia2, "/", mes2, "/", ano2;
   senao
   		se (ano > ano2) entao
			escreva dia, "/", mes, "/", ano;
			escreva dia2, "/", mes2, "/", ano2;
		senao
			se (mes2 > mes) entao
				escreva dia, "/", mes, "/", ano;
				escreva dia2, "/", mes2, "/", ano2;
			senao
			   se (mes > mes2) entao
				   escreva dia, "/", mes, "/", ano;
				   escreva dia2, "/", mes2, "/", ano2;
   			   senao
					se (dia2 > dia) entao
						escreva dia, "/", mes, "/", ano;
						escreva dia2, "/", mes2, "/", ano2;
					senao
						se (dia > dia2) entao
							escreva dia, "/", mes, "/", ano;
							escreva dia2, "/", mes2, "/", ano2;
						senao
							escreva dia, "/", mes, "/", ano;
							escreva dia2, "/", mes2, "/", ano2;
                        fim_se;
                    fim_se;                             							
                fim_se;  
			fim_se;
       fim_se;	
   fim_se;   
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 14/04/2010
Program exercicio16;
 uses crt;
 var
 dia, dia2, mes, mes2, ano, ano2 : integer;
 Begin
 writeln('Insira um dia (dd)');
 readln(dia);
 writeln('Insira um mes (mm)');
 readln(mes);
 writeln('Insira um ano (aaaa)');
 readln(ano);
 writeln('Insira um dia (dd)');
 readln(dia2);
 writeln('Insira um mes (mm)');
 readln(mes2);
 writeln('Insira um ano (aaaa)');
 readln(ano2); 
  if (ano2 > ano) then
    begin
  	writeln(dia, '/', mes, '/', ano);
  	writeln(dia2, '/', mes2, '/', ano2);	   
  	end
  else
  	if (ano > ano2) then
    	  begin
  	     writeln(dia2, '/', mes2, '/', ano2);
  		writeln(dia, '/', mes, '/', ano);	   
	  end
	else	  
  		if (mes2 > mes) then
    		  begin
  		    writeln(dia, '/', mes, '/', ano);
  		    writeln(dia2, '/', mes2, '/', ano2);	   
  		  end
 		else
  		     if (mes > mes2) then
    	  		  begin
  	     		writeln(dia2, '/', mes2, '/', ano2);
  				writeln(dia, '/', mes, '/', ano);	   
	  		  end	  
			else	  
				if (dia2 > dia) then
    				  begin
  					writeln(dia, '/', mes, '/', ano);
  					writeln(dia2, '/', mes2, '/', ano2);	   
  				  end
				else
  					if (dia > dia2) then
    	  				  begin
  	     				writeln(dia2, '/', mes2, '/', ano2);
  						writeln(dia, '/', mes, '/', ano);	   
	  				  end;	  
 writeln('Pressione para fechar');
 readkey;  
End.