Здравствуйте, rail!

Смотрите приложение:
[code lang=pascal]var
a:array[1..10]of integer;
b,c,d:integer;
begin
for b:=1 to 10 do
begin
write('a[',b,']:=');
readln(a[b]);
end;
for b:=1 to 9do
write(a[b],',');
writeln(a[10]);
for b:=1 to 9 do
for c:=b+1 to 10 do
if a[b]>a[c]then
begin
d:=a[c];
a[c]:=a[b];
a[b]:=d;
end;
writeln('result:');
for b:=1 to 9 do
write(a[b],',');
writeln(a[b]);
end.[/code]
Удачи!