сортировка символьных данных методом переноса в массиве,ПРОБЛЕМКА!

[Владимир Николаеви]

ребят помощь нужна срочная голова уже тарахтит!
задание такое: Сортировка символьных данных методом переноса в массиве.
преподаватель говорит,что данный метод получился пузырьковый!
помогите пожалуйста если не сложно,что тут не так.
как я понял,тут принцип такой,что сравнивается первый элемент массива со вторым,минимальное значение уходит в левую часть,далее второй с третьим.
А нужно: вводится массив данных, создается другой,из первого массива выбирается минимальное значение и переносится во второй созданный массив и так далее...
Вот лог программы:

TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Button1: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a: String;
i, j, n: Integer;
Temp: Char;
begin
a:=Edit1.Text;
n:=Length(a);
if n=0 then
ShowMessage('Не введено ни одного символа.')
else
for i:=1 to n do
for j:=i+1 to n do
if AnsiCompareStr(a[i],a[j])>0 then
begin
Temp:=a[i];
a[i]:=a[j];
a[j]:=Temp;
end;
Edit2.Text:=a;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
ShowMessage('Программа предназначена для сортировки'#13#10'вводимых пользователем с клавиатуры '#13#10'символьных данных методом переноса в массиве'#13#10'и вывода результата сортировки на экран'#13#10'для визуального контроля.');
end;

procedure TForm1.N6Click(Sender: TObject);
begin
ShowMessage('Программу разработал:'#13#10'ст. гр. 11ÇÂÝ31 ');
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Ваш преподаватель прав.

for i:=1 to n do
for j:=i+1 to n do
if AnsiCompareStr(a[i],a[j])>0 then

это мало того, что метод сортировки простыми обменами (модификация "пузурька"),
так ещё и с ошибкой написанная.
должно быть:

 for i:=1 to n-1 do
   for j:=i+1 to n do
     if AnsiCompareStr(a[i],a[j])>0 then 
        .....

[Владимир Николаеви]

Сообщение от Serge_Bliznykov

Ваш преподаватель прав.


это мало того, что метод сортировки простыми обменами (модификация "пузурька"),
так ещё и с ошибкой написанная.
должно быть:

 for i:=1 to n-1 do
   for j:=i+1 to n do
     if AnsiCompareStr(a[i],a[j])>0 then 
        .....

А теперь в каком направлении мне двигаться?

[Serge_Bliznykov]

А теперь в каком направлении мне двигаться?

ищите в методичке/учебнике/интернете, что такое "Сортировка методом переноса в массиве"
По найденному алгоритму/описанию алгоритма пишите код для сортировки.
всё.

[Владимир Николаеви]

Сообщение от Serge_Bliznykov

ищите в методичке/учебнике/интернете, что такое "Сортировка методом переноса в массиве"
По найденному алгоритму/описанию алгоритма пишите код для сортировки.
всё.

спасибо)))

[Sciv]

По найденному алгоритму/описанию алгоритма пишите код для сортировки.

Да они по моему на Вике сразу для разных ЯП коды выкладывают, после формального описания алгоритма - даже париться не надо с написанием

[Владимир Николаеви]

Немного переделал.У меня почему-то программа не работает. Ошибку выдает, когда кнопку нажимаешь. Не могу понять в чём причина.
Программа по идее должна вот так выглядеть:

procedure TForm1.Button1Click(Sender: TObject);
var
A, B: String;
i, j, n: Integer;
begin
A:=Edit1.Text;
n:=Length(A);
if n=0 then
ShowMessage('Не введено ни одного символа.')
else
for i:=1 to n do
begin
j:=i;
while (j > 1) and (B[j-1] > A[i]) do
begin
B[j]:=B[j-1];
j:=j-1;
end;
B[j]:=A[i];
end;
Edit2.Text:=B;
end;

[Sciv]

Какую ошибку?

[Владимир Николаеви]

Сообщение от Sciv

Какую ошибку?

Access violation at address 00453A21 in module 'Project1.exe'. Write of address 00000000.

[Sciv]

архив с проектом прикрепите к посту - посмотрю. Так сразу не скажу, ошибка рантаймовая. Вполне может глюком дельфы оказаться