Pascal/Turbo Pascal - deberá informar si son correlativos

procedure entranumeros;

  begin

     h := 1;

     writeln(' Entre 5 valores numericos ');

     writeln;

   repeat

     write(' Entre N§ ',h,' : ');

     readln(nume[h]);

     h := h + 1;

   until h > 5;

   nume[0] := h - 1;

  end;

  function correlativos : boolean;

  var

    aux : integer;

   begin

      correlativos := true;

      for h := 1 to nume[0] - 1 do

       for t := nume[0] downto h + 1 do

       if nume[h] > nume[t] then

       begin

          aux := nume[t];

          nume[t] := nume[h];

          nume[h] := aux;

       end;

       aux := nume[1];

       for t := 2 to nume[0] do

       if aux + 1 = nume[t] then

       aux := nume[t]

     else

       correlativos := false;

   end;

   begin

      clrscr;

      entranumeros;

      writeln(' Son Correlativos = ',correlativos);

      readkey;

   end.