Рекурсия (Delphi)

[Dlk]

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

Задание:
Разработать рекурсивную процедуру сортировки массива методом простого выбора.

Алгоритм сортировки помню, но не знаю как организовать это через рекурсию.

Ну пожалуйста, помогите. Завтра сдавать

Это сделал.
Помогите пожалуйста с этим:
1) Процедура
Вывести в порядке возрастания их кодов все строчные буквы латинского алфавита, имеющиеся в тексте.
2)Функиця
Уточните корень уравнения e^x-10x-=0 на отрезке [a, b] методом половинного деления.
3)Процедуру подключить как Unit, а функцию как отдельную библиотеку dll.

1-ое задание я сделал, 2-ое почти, 3-е не знаю как.

1-ое:

Program Laba_1_1;
  {$APPTYPE CONSOLE}
Uses
  SysUtils;
Var
  I, N: Byte;
  S: String;
  A: Array [1..100] of Char;
  Temp: Char;
Procedure X;
Var
  I, J: Byte;
Begin
  N:=0;
  For I:=1 to Length(S) do
    If S[I] in ['a'..'z'] then
    Begin
      N:=N+1;
      A[N]:=S[I];
    End;
  For I:=1 to N-1 do    //Сортировка прямым обменом
    For J:=I+1 to N do
      If A[I]>A[J] then //по возрастанию кодов
      Begin
        Temp:=A[I];
        A[I]:=A[J];
        A[J]:=Temp;
      End;
End;
Begin
  Writeln('Enter text:');
  Readln(S);
  X; //Процедура
  Writeln; Writeln('Result:');
  For I:=1 to N do
    Write(A[I]);
  Writeln; Writeln;
  Write('Press Enter to exit...');
  Readln;
End.

2-ое:

function F(x : Double) : Double;
begin
  //---
end;
 
function FindSolution(a, b, e : Double) : Double;
var
  Fa, Fb, Fc : Double;
begin
  Repeat
    Fa := F(a);
    Fb := F(b);
    Fc := F((a+b)/2);
    If Sigh(Fa) = Sign(Fc) Then a := (a+b)/2 Else b := (a+b)/2;
  Until Abs(Fc) < Abs(e);
end;