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

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

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

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

вот архив,возможно что винда 7ка стоит

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

людииииииииииииииииииииииииииииииии и

[Sciv]

Посмотрел. Если бы Вы удосужились изучить, что такое брякпойнт, трассировка и как ей пользоваться - сами бы нашли.

Ошибка возникает вот в этом блоке:

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];

Строка B в момент, когда i=1 и j=1 пустая. Да и вообще непроинициализированна. Поэтому вместо:

B[j]:=A[i]

пишите

B:=B+A[i];

Но не забудьте в начале обработки проинициализировать B:

B:='';

Ну либо оставить Ваш вариант кода, но инициализировать B вот так:

B:='';
for i:=1 to n do B:=B+' ';

Второй вариант, имхо, проще.