Код программы на Delphi...

[_FENDER_]

Помогите подкорректировать код...Написал программу на Delphi..
Суть её:Дано натуральное число,отсортировать цифры этого числа по возрастанию и убыванию.
По возрастанию работает, по убыванию - нет..просмотрите пожалуйста код и исправьте..или напишите свой вариант решения задачи.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, XPMan;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    XPManifest1: TXPManifest;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
x:longint;
y:longint;
z:longint;
begin
x := StrToInt(Edit1.Text);
y := x mod 10;
x := x div 10;

while x <> 0 do
begin
if RadioButton1.Checked = True and (x mod 10 >= y mod 10)
or RadioButton2.Checked = True and (x mod 10 <= y mod 10)
then
y := y*10+x mod 10
else
begin
z:=0;
while
      RadioButton1.Checked = True and (x mod 10 > y mod 10)
or    RadioButton2.Checked = True and (x mod 10 < y mod 10)
and (y < 0) do
begin
z:=z*10+y mod 10;
y:=y div 10;
end;
y := y*10+x mod 10;
while z <> 0 do
begin
y := y*10+z mod 10;
z:= z div 10;
end;
end;
x:= x div 10;
end;
x := y;

label3.Caption := IntToStr(x);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.

[Grag]

Отсортировал цифры числа в порядке возрастания - хорошо. Перепиши их теперь в обратном порядке - вот тебе сортировка по убыванию.... А в принципе это та же самая сортировка, но с противоположным знаком сравнения...

[vovk]

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

var
x,y,t,temp:Int64;
begin
x:=StrToInt64(Edit1.Text);
y:=1;
while x div y>0 do
begin
y:=y*10;
end;
 t:=y;
while t > 1 do
  begin
y:=10;
temp:=(x mod 10);
  while y<t do
  begin
y:=y * 10;
 if RadioButton1.Checked then
begin
       if temp > ((x div (y div 10)) mod 10) then
     temp:= ((x div (y div 10)) mod 10) else
     x:= (((x div y)*10 + temp)*10 + ((x div (y div 10)) mod 10))*(y div 100)+ x mod (y div 100);
end;
  if RadioButton2.Checked then
begin
       if temp < ((x div (y div 10)) mod 10) then
     temp:= ((x div (y div 10)) mod 10) else
     x:= (((x div y)*10 + temp)*10 + ((x div (y div 10)) mod 10))*(y div 100)+ x mod (y div 100);
end;
  end;
 t:=t div 10;
  end;
label3.Caption := IntToStr(x);
end;

работает, но надо дорабатывать, вчера уж очень спать хотелось набирал только потому что обещал.

PS со строкой легче было бы, ну по крайней мере читабельнее.

[_FENDER_]

Спасибо..разобрался во всем..программа работает...