Функция. Модуль и библиотека

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.

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;

exports MyCoolFunction;

function MyCoolFunction(параметры): что возвращает; external 'MyDll.dll';