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

[TOPEHTO]

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

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

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

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

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

[TOPEHTO]

Ага, спасибо...во всем разобрался... ...
Тут еще 1 беда есть...есть такая вот задачка:

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

есть решение, причем правильное

Program Lab_3_3;
uses crt;
var x,y:string;
i,k:word;
h,d,t:boolean;
begin
ClrScr;
Write('Enter string1: ');
Readln(x);
Write('Enter string2: ');
Readln(y);
i:=1;
t:=true;
While (Ord(x[i])<>0) do begin
h:=true;{vxojdenie}
While (h and(Ord(x[i])<>0)) do begin
k:=1;
d:=true;{podstroka so strokoi}
While (d and(Ord(y[k])<>0)) do begin
d:=(y[k]=x[i+k-1])and(Ord(x[i+k-1])<>0);
k:=k+1;
End;
h:=not(d);
i:=i+1;
End;
if not(h) then begin
Writeln('N simvola: ',i-1);
t:=false;
End;
End;

if t then Writeln('Vhogdenii net');
Write('Press any button for exit');
Readkey;
End.

Народ или помогите с алгоритмом разобраться или упростить, потому что тут черт голову сломит цикл на цикле, может у кого что попроще есть, или это упроститься... ...