Упорядочивание

Program Selection;
Var Mas: array[1..20] of integer;
i,n,j, Min, N_Min: integer;
Begin
Writeln('n='); read(n);
Randomize;
For i:=1 to n do Mas[i]:=random (10)+15;
For i:=1 to N do writeln('Mas[',i,']=',MAS[i]);
writeln;
For i:=1 to N-1 do
Begin
Min:=Mas[i];
N_Min:=i;
for j:=i+1 to N do
if Mas[j]<Min then
Begin
Min:=Mas[j];
N_Min:=j;
End;
Mas[N_Min]:=Mas[i];
Mas[i]:=Min;
End;
For i:=1 to N do writeln('Mas[',i,']=',MAS[i]);
End.

Cумма чисел

Program primer;
uses crt;
var a:longint;
S:integer;
begin
clrscr;
S:=0;
Write('a='); Readln(a);
While a>0 do
begin
S:=S+a mod 10;
a:=a div 10;
end;
Writeln('S',S);
Readkey;
end.