hola! para ordenarlos , lo unico que conosco es la burbuja mejorada o una organisacion directa , la burbuja era algo asi (no recuerdo bien como se hace pero aver si me doy maña donde "b" es una "bandera"):
repeat
b:=0;
for x:=1 to 30 do
begin
if v[x] > vector[x+1] then
begin
aux:=v[x];
v[x]:=v[x+1];
v[x+1]:=aux;
b:=1;
end;
end;
until b=0;
si alguno es mayor pasa a la posicion anterior y asi ,aux guarda un valor de alguna de las dos posiciones para luego intercambiar, creo que saves como declarar un array y como llenarlo , y para la suma usa un contador , espero que te sirva , creo que la burbuja era asi , pruevala a ver si anda , saludos y suerte