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

[TOPEHTO]

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

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

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

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

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

[volvo]

Ну, скажем, так:

var
  i,x,j, count: integer;
  size, left, right, center: integer;
  a: array[1 .. 100] of integer;

begin
  write('vvedite size'); readln(size);
  writeln('vvedite elementi');
  for i:=1 to size do readln(a[i]);

  writeln ('vvedite X');
  readln (x);

  if x>a[size] then a[size+1]:=x;
  if x<a[1] then begin
    for j:=size downto 1 do a[j+1]:=a[j];
    a[1]:=x;
  end
  else begin
    left := 1; right := size;
    repeat

      center := (right + left) div 2;
      inc(count);
      if a[ center ] >= X then right := center
      else left := center;

    until (right - left = 1) or (a[ center ] = X);

    for i := size + 1 downto center do a[i] := a[i - 1];
    a[ center ] := X;
  end;

  writeln('count = ', count);
  for i:=1 to size+1 do
  write (' ',a[i]);
  writeln;

  readln;
end.

Не забудь, массив упорядочен. Мой пример - для случая, когда он упррядочен по неубыванию...