Дан одномерный массив с (10) заполненный вручную с клавиатуры,отсортировать по возрастанию и убыванию.

Var   
c:array[1..100] of integer; 
s,j,n,i:integer;
begin   
readln(n);  
for i:=1 to n do       
read(c[i]); 
//Сортировка по возрастанию 
for j:=1 to n-1 do   
for i:=1 to n-j do     
if c[i]>c[i+1] then     
begin       
s:=c[i];       
c[i]:=c[i+1];       
c[i+1]:=s;     
end;
//Вывод  
for i:=1 to n do     
write(c[i],' ');
writeln;
//Сортировка по убыванию 
for j:=1 to n-1 do   
for i:=1 to n-j do     
if c[i]<c[i+1] then     
begin       
s:=c[i];       
c[i]:=c[i+1];       
c[i+1]:=s;     
end;
//Вывод  
for i:=1 to n do     
write(c[i],' ');  
end.