Pascal/Turbo Pascal - como hago un programa en pascal que me diga de 5 numeros cual es el menor??

datos a=4,b=6,c=8,d=2,e=9

 if a > b then

  if a > c then

   if a > d then

     if a > e then

     a es la mayor de todas pero si no tendrías que repetir todos los valores por eso esto seria.

uses

    crt;

var

 n : array[1..5] of integer;

 d, r, ten : integer;

 begin

 for d := 1 to 5 do

 begin

   for r := 5 downto d + 1 do

   if n[d] > n[r] then

   begin

        ten := n[d];

        n[d] := n[r];

        n[r] := ten;

   end;

 end;

  writeln(' El Numero Mayor Es : ',n[5]);

  readln;

end.

Program menorde5;

var menor,num1,num2,num3,num4,num5 :integer;

begin

    writeln('Ingrese 5 numeros:');

    readln(num1,num2,num3,num4,num5);

    menor := num1;

    if (num2<menor) then

        menor := num2;

    if (num3<menor) then

        menor := num3;

    if (num4<menor) then

        menor := num4;

     if (num5<menor) then

        menor := num5;

     writeln('El numero menor es el ',menor,'.');

     readln;

end.

Program menorde5;

var menor,num,i :integer;

begin

  i := 1;

  writeln('Ingrese 5 numeros.');

  readln(num);

  menor := num;

  while (i<5) do

  begin

     readln(num);

     if (num < menor) then

        menor := num;

     i := i+1;

  end;

  writeln('El menor numero ingresado es el ',menor,'.');

  readln;

end.