Упорядоченные массивы

[iiunbreakableii]

Подскажите пожалуйста : как добавить элемент в упорядоченный массив, так чтобы он остался упорядоченным?

P.S. Пользуюсь массивом строк, а сортирую "быстрой сортировкой".

Заранее спасибо )

[Consol]

for i:=1 to n do
begin
if (a[i]<=x)and(a[i+1]>=x) then 
for j:=n+1 downto i+2 do
 a[j]:=a[j-1];
a[i+1] :=x;
exit;
end;

[iiunbreakableii]

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