2 задачки, 1-вставка числа в массив, 2-строки Опции

[TOPEHTO]

Еще раз здраствуйте! и еще раз 10000 извинений!
вот тут задали, помогите кто чем может...плиз...

Задан отсортированный одномерный массив чисел. Добавить введенное
пользователем число в массив таким образом, чтобы массив остался
отсортированным. Использовать минимальное количество сравнений.

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

Ввести массив строк. Отсортировать строки в алфавитном порядке.

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

[-Екатерина-]

задача: 42. Дан одномерный упорядоченный по неубыванию массив А(N). Вставить элемент Х в этот массив таким образом, чтобы не нарушить упорядоченность массива А.

var i,n,x,j: integer;
A: array [1..100] of integer;
begin
write ('vvedite n');
readln (n);
writeln ('vvedite elementi');
for i:=1 to n do
read (a[i]);
writeln ('vvedite X');
readln (x);
if x>a[n] then a[n+1]:=x;
if x<a[1] then begin
for j:=n downto 1 do
a[j+1]:=a[j];
a[1]:=x;
end
else begin
i:=n;
while x<a[i] do
begin
a[i+1]:=a[i];
i:=i-1;
end;
a[i+1]:=x; end;
for i:=1 to n+1 do
write (' ',a[i]);
readkey;
end.



у тебя кажется примерно такая же