Algoritmo que leia 5 números e exiba o menor e maior valor

Leia 5 números e apresente o menor e o maior valor

Pseudocódigo:

programa exercicio19
var
   n1, n2, n3, n4, n5, menor, maior : inteiro;
inicio
   leia n1;
   leia n2;
   leia n3;
   leia n4;
   leia n5;
   menor ← 99999;
   maior ← 0;
   se (n1 < menor) entao menor ← n1; fim_se; se (n1 > maior) entao
   	   maior ← n1;
   fim_se;	
	   se (n2 < menor) entao menor ← n2; fim_se; se (n2 > maior) entao
		   	   maior ← n2;
		   fim_se;	
			   se (n3 < menor) entao menor ← n3; fim_se; se (n3 > maior) entao
				   	   maior ← n3;
				   fim_se;	
					   se (n4 < menor) entao menor ← n4; fim_se; se (n4 > maior) entao
						   	   maior ← n4;
						   fim_se;	
							   se (n5 < menor) entao menor ← n5; fim_se; se (n5 > maior) entao
								   	   maior ← n5;
								   fim_se;	
   escreva menor, maior;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 24/03/2014
Program exercicio19;
 uses crt;
 var
 n1, n2, n3, n4, n5, menor, maior : integer;
 Begin
 writeln('Insira Numero 1');
 readln(n1);
 writeln('Insira Numero 2');
 readln(n2);
 writeln('Insira Numero 3');
 readln(n3);
 writeln('Insira Numero 4');
 readln(n4);
 writeln('Insira Numero 5');
 readln(n5);  
 menor := 99999;
 maior := 0;
 	if (n1 < menor) then
 	    menor := n1;
 	if (n1 > maior) then
 	    maior := n1;
 		if (n2 < menor) then
 	    		menor := n2;
 		if (n2 > maior) then
 	    		maior := n2;
		 	if (n3 < menor) then
 	    			menor := n3;
 			if (n3 > maior) then
 	    			maior := n3;
			 	if (n4 < menor) then
				   menor := n4;
			 	if (n4 > maior) then
			 	    maior := n4;
				 	if (n5 < menor) then
				 	    menor := n5;
				 	if (n5 > maior) then
				 	    maior := n5;						 	    
 writeln('Menor: ', menor, ' | ', 'Maior: ', maior);
 writeln('Pressione para fechar');
 readkey;  
End.