Repita ordenado

Program Univers;
Uses WinCrt;
Var op,i,n:integer;
Begin

Writeln ('Menú');
Writeln ('1-Ordenar de manera ascendente');
Writeln ('2-Ordenar de manera descendente');
Readln (op);

If op=1 then
Begin
for i:=1 to 10 do
Writeln (i);
End;

If op=2 then
Begin
for i:=10 downto 1 do
Writeln (i);
End;
End.