функции в паскале

[tanek]

Добрый вечер!!!!!!!!У меня проблема....необходимо разбить данную програму на функци...
задание в приложенном ниже файле

program pr1;

procedure Task;
begin
   writeln('Вычисление интеграла');
   writeln;
end;

procedure InputParameters(var c,f:real);
begin
   repeat
      writeln('Введите с(с>0)');
      readln(c);
   until (c>0);

   repeat
      writeln('Введите f(f>0)');
      readln(f);
   until (f>0);
end;

procedure InputLimitsIntegral(var a,b:real);
begin
   repeat
      writeln('Введите пределы интегрирования a,b (b>a)');
      readln(a,b);
   until (b>a);
end;

procedure InputAccuracy(var e:real);
begin
   repeat
      writeln('Введите точность вычисления e');
      readln(e);
   until (e>0) and (e<1);
end;

procedure InputData(var c,f,a,b,e:real);
begin
   InputParameters(c,f);
   InputLimitsIntegral(a,b);
   InputAccuracy(e);
end;

function AreaCalculation(f,x,c:real ):real;
begin
if x<-c then AreaCalculation:=-f else
        if abs(x)<=c then AreaCalculation:=exp(-1*sqr(x)) else
        if x>=0 then AreaCalculation:=c-x;
end;


procedure CalculationIntegral(c,f,a,b,e:real; var I1:real);

var
   s,I2:real;
   h,x:real;
   z:boolean;
begin
   z:=false;
   repeat
     n:=20;
     h:=(b-a)/n;
     x:=a;
     s:=0;

     repeat
        x:=x+h;
        s:=s+AreaCalculation(f,x,c);
     until(x>b);
     I2:=h*s;
     I1:=0;

     if ((z=true) and (abs(I2-I1)<e))
     then I2:=I2 else
     begin
       z:=true;
       I1:=I2;
       n:=n*2;
     end;
   until (abs(I2-I1)<e);
end;

procedure InputIntegral(I1:real);
begin
   writeln('Значение интеграла I:=',I1:3:5);
   readln;
end;

var
   I1:real;
   f,c:real;
   a,b:real;
   e:real;

begin
   Task;
   InputData(c,f,a,b,e);
   CalculationIntegral(c,f,a,b,e,I1);
   InputIntegral(I1);
end.

необходимо, что бы в данной програме были еще 2 функции их вот этого куска:

procedure CalculationIntegral(c,f,a,b,e:real; var I1:real);

var
   s,I2:real;
   h,x:real;
   z:boolean;
begin
   z:=false;
   repeat
     n:=20;
     h:=(b-a)/n;
     x:=a;
     s:=0;

     repeat
        x:=x+h;
        s:=s+AreaCalculation(f,x,c);
     until(x>b);
     I2:=h*s;
     I1:=0;

     if ((z=true) and (abs(I2-I1)<e))
     then I2:=I2 else
     begin
       z:=true;
       I1:=I2;
       n:=n*2;
     end;
   until (abs(I2-I1)<e);
end;

1- вычисление интеграла и помощью левых прямоугольников, 2- функция вычисления интеграла с заданной точностьюб типа:
function LeftPramoyg(a,b,c,f:real; n:longint):real;
function Integral(a,b,c,f,e:real ):real

[tanek]

Задание находится в прикрепленном файле