uses crt;
label main;
type vect=array [1..10] of longint;
var b,c:vect;
    a:array[1..10] of string;
    i,k,j,L,chislo,ch:longint;
    n:string;
    f:boolean;

function PEREVOD (n:string):longint;
var i:byte; ch: longint;  s:set of char;
begin
ch:=0;
s:=['0'..'9'] ;
for i:=1 to length (n) do
begin
if n[i] in s then ch:=ch+(ord(n[i])-48) * trunc(Exp((length(n)-i)*Ln(10)));
end;
PEREVOD:=ch;
end;


procedure SORTIROVKA (var chislo:longint; var b:vect);
label Sort;
var T:longint; klav :char; k,i:longint;
begin
Sort:
writeln('                 Вы хотите произвести сортировку');
writeln('                 1.По возрастанию');
writeln('                 2. По убыванию');
writeln('                 Сделайте свой выбор, нажав соответствующую клавишу');
readln (klav);
case klav of

'1':begin
    for k:=1 to chislo-1 do
    for i:=1 to chislo-k do
    if b[i] > b[i+1] then
    begin T:=b[i]; b[i]:=b[i+1]; b[i+1]:=T; end;
    writeln; writeln;
    for i:=1 to chislo do
    begin writeln(b[i]); end;
    end;

'2':begin
    for k:=1 to chislo-1 do
    for i:=1 to chislo-k do
    if b[i] < b[i+1] then
    begin T:=b[i]; b[i]:=b[i+1]; b[i+1]:=T; end;
    writeln; writeln;
    for i:=1 to chislo do
    begin writeln(b[i]); end;
    end;
else
begin
writeln('Некорректный ввод. Повторите еще раз'); writeln; writeln;
goto Sort;
end;
end;
end;

begin
main:
clrscr;
writeln;
write('Введите количество сортируемых цифр ( не больше 10 ) --> ');
readln(n);
chislo:=PEREVOD (n);

for i:=1 to chislo do
begin
write('Введите ', i, '- ое число --> ');
readln (a[i]);
for i:=1 to chislo do
b[i]:=PEREVOD(a[i]);
SORTIROVKA (chislo,b);
end;
end.