Будьте добры, помогите с задачей в Паскале! Желательно с объяснением)

Пользователь водит 5 чисел. Записать их в порядке возрастания в одну строку через запятую.

Const n = 5; //константа

var

a:array [1 ... n] of integer; //массив под 5 чисел

i, x, j:integer;

begin

for i: = 1 to n do / / ввод чисел

begin

readln (a[i]) ;

end;

writeln ('Числа в порядке возрастания: ') ;

for i: = 1 to n do / / сортировка массива

for j: = 1 to n do

begin

if (a[i]
begin

x:=a[i];

a[i]:=a[j];

a[j]:=x;

end;

end;

for j: = 1 to n do / / вывод чисел

if j 5 then write (a[j]+',') else

write (a[j]) ;

readln

end.