Menú de Ordenamiento desde 1-10 (Ascendente y Descendente) (Con N)

Program Logicander;


Uses WinCrt;
Var
    i, n, opc : integer;
Begin


WriteLn ( 'Menu' );
WriteLn ( '1.- Ordenar de Manera Ascendente 1-n' );
WriteLn ( '2.- Ordenar de Manera Descendente n-1' );
ReadLn (opc);


If opc=1 then
Begin
    WriteLn ( 'Ordenar de manera Ascendente' );
    WriteLn ( '¿Cuantas veces desea que se repita?' );
    ReadLn (n);
    
    for i:= 1 to n do


    WriteLn (i);


    end;


If opc=2 then
Begin
    WriteLn ( 'Ordenar de manera Descendente' );
    WriteLn ( '¿Cuantas veces desea que se repita?' );
    ReadLn (n);
    
    for i:= n downto 1 do


    WriteLn (i);


    end;


end.