программа в паскаль

Написать программу, которая упорядочивает цифры в заданном пятизначном числе по убыванию.

//Написать программу, которая упорядочивает цифры в заданном пятизначном числе по убыванию.var a:array[1..5] of integer;x,i,j:integer;begin  Writeln('Введите пятизначное число');  Readln (x);  while  (x<9999) or (x>99999) do  // проверка числа на "пятизначность"    begin      writeln ('Вы ввели не пятизначное число попробуйте еще раз');      readln (x);    end;  for i:=1 to 5 do //раскладываем число на отдельные цифры    begin      a[i]:=x mod 10;      x:=x div 10;    end;    for j:=1 to 4 do //сортировка пузырьком      begin        for i:=1 to 4-j do          begin            if a[i]>a[i+1] then               begin                x:=a[i];                a[i]:=a[i+1];                a[i+1]:=x;              end;          end;      end;   for j:=1 to 5 do write (a[j]);//вывод результатаend.