Pascal/Turbo Pascal - ayuda con array

primero que todo buenas a los que visitan esta pregunta.

el problema que tengo es el siguiente estoy el claces de PED y me mandaron a hacer un programa como tarea, lo he hecho mas o menos pero se me complico en una parte, resulta que en el problema necesito que el programa no me acepte numeros negativos eso es facil, pero me caigo en la parte de que tambien al mismo tiempo tampoco debe aceptar numeros igual en al secuencia ejem dato1: 5, dato2: 5, bueno de todos modos monto el programa a qui para que lo revisen y me digan por favor como hacer para que me haga esas dos cosas juntas gracias.


program ordena1;
uses wincrt;
var
v:array[1..5] of integer;
k,i,j,aux:integer;

begin
writeln('ordenamiento');
writeln;

for k:= 1 to 5 do

begin

repeat
write('dato',k,': ');
readln(v[k]);
until (v[k]>0);

end;

{ordenar}
for i:= 1 to 5-1 do

for j:= i+1 to 5 do

if (v[i]<v[j]) then

begin
aux:= v[j];
v[j]:=v[i];
v[i]:=aux;
end;

{mostrar}
for k:= 1 to 5 do
writeln(v[k]);
end.

{Es esto loquee pides}

program ordena1;
uses
crt;
var
d, v : array[1..5] of integer;
k,i,j,aux : integer;

begin
clrscr;
writeln('ordenamiento');
writeln;
for k := 1 to 5 do
begin
repeat
write('dato',k,': ');
readln(v[k]);
until (v[k] > 0);
end;
clrscr;

{ordenar}
for i := 1 to 5 do
for j := 1 to 5 do
if(v[j] < v[i]) then
begin
aux := v[j];
v[j] := v[i];
v[i] := aux;
end;
{mostrar}
for k := 5 downto 1 do
writeln(v[k]);
readln;
end.