Сортировка Элементов Массива

[Avast156]

Задача: Дан массив, состоящий из 20 рандомных 4-ёх значных чисел.
Вывести на экран сумму единиц,десятков,сотен,тысяч каждого числа, после чего все суммы рассортировать в порядке возрастания.

Половина задачи выполнена: Суммы выводятся, но не могу вывести все суммы в порядке возрастания - выводится список сумм не в нужном порядке.

program Prog;
Var
a:array[1..20] of integer;
b:array[1..20] of integer;
i,x,x1,x2,x3,x4,h,F,k,n:integer;
label M1,M2;
begin
randomize;
for i:=1 to 20 do
    begin
    M1:
    A[i]:=random(9999);
    if A[i]<1000 then goto M1;
    end;
for i:=1 to 20 do
    begin
    x:=A[i];
    x1:=x div 1000;
    x2:=(x-x1*1000) div 100;
    x3:=(x-x1*1000-x2*100) div 10;
    x4:=x-x1*1000-x2*100-x3*10;
    h:=x1+x2+x3+x4;
    b[i]:=h;
    end;
writeln('Число | Сумма единиц,десятков,сотен,тысяч');
for i:=1 to 20 do
    writeln(a[i],'  |  ',b[i]);
M2:
F:=0;
for i:=1 to n-1 do
    begin
    if b[i]>b[i+1] then
       begin
       k:=b[i];
       b[i]:=b[i+1];
       b[i+1]:=k;
       F:=1;
       end;
    end;
if F=1 then goto M2;
for i:=1 to 20 do
    write(b[i],' ');
readln;
end.

Может быть где то ошибка? Лично я не знаю в чём дело, помогите)

[Poma][a]

for i:=1 to 20 do
    begin
    M1:
    A[i]:=random(9999);
    if A[i]<1000 then goto M1;
    end;

ой! GoTo? Ужасъ! Как Вы только могли написать это? Всё! В Сибирь!!

Могу предложить такой вариант (единственный недостаток - нет 0 (можно и это убрать, но будет не так красиво..))

        s := 0;
        for i := 1 to NumberOfDigits do
                s := s*10 + Random (9)+1;

Где, NumberOfDigits - константа, в Вашем случае равная 4-ем.


Смотрим дальше..
После :

for i:=1 to 20 do
    writeln(a[i],'  |  ',b[i]);

Пишем

SortArr (b, 20);

Что бы это работало, Вам понадобятся такие процедурки :

	
	
procedure Swap (var a, b : LongInt);

var
	t : LongInt;

begin
	t := a;
	a := b;
	b := t;
end;


procedure SortArr (var a : TArr; const n : LongInt);

var
	i, j : LongInt;

begin
	for i := 1 to n-1 do
		for j := 1 to n-i do
			if a[j] > a[j+1] then
				Swap (a[j], a[j+1]);
end;

Далее идет вывод, у Вас он сделан..


ВНИМАНИЕ!! Что бы работали процедурки Вам нужно чтобы массив был типа TArr, для этого пишем :

const
	SIZE = 20;

type
	TArr = array [1..SIZE] of Integer;

И в var'e тоже пишем a, b : TArr.

Удачи

[s-andriano]

Offtop: А можно поинтересоваться, почему в названии темы каждое слово набрано с заглавной буквы?