процедуры и функции

[naBel]

помогите в данном коде заменить одну функцию на процедуры,я вроде чё та начал делать но как то не очень понял как надо делать..

VAR
     S,T:Real;
     j:Integer;
    FUNCTION STP(A,B:REAL):REAL;
   BEGIN
      STP:=EXP(B*LN(A));
    END;
     FUNCTION FCT(N:BYTE):LONGINT;
     VAR
  I:BYTE; 
        L:LONGINT;
     BEGIN
      L:=1;
      FOR I:=2 TO N DO
       L:=L*I;
      FCT:=L;
    END;
   FUNCTION X(A,B:REAL):REAL;
   VAR
      I:BYTE;
      SUM:REAL;
   BEGIN
     SUM:=0;
     FOR I:=0 TO 15 DO
     for j:=1 to 5 do begin
       SUM:=SUM+(i*a)+(j*b)/(FCT(I)*a)-(fct(j)*b);
      X:=SUM;
      end;

   END;
    procedure ss;
   var  Y(A,B:REAL):REAL;
   BEGIN
     ss;
     Y:=2*2*2+3*STP(3,b)-4*STP(1/3,a);
   END;
   FUNCTION F(A,B:REAL):REAL;
   BEGIN
      F:=Abs(ln(b-a)/ln(a*b))/(a+b);
   END;
BEGIN
      WRITELN('BBedute. s,t');
    READLN(S,T);
    WRITELN('f(s,t)=',
               F(S,T):20:20);   
  readln;
  END.

[Hacker19_90]

procedure ss (var Y: real; A,B:real);
   BEGIN
     Y:=2*2*2+3*STP(3,b)-4*STP(1/3,a);
   END;