разделение программы

[world12_tk]

Добрый вечер...... у меня возникла проблема... я написал одну прогу, которая интегрирует площадь фигуры.... Мне препод сказал поделить прогу на процедуры и функции...
Вот исходный код:

{ file encoding: utf-8 }
program integral1(input, output);

const
n=100;
procedure Input(var a,b,eps,fx,c:double);
begin
    writeln('введите нижний предел');
    readln(a);
    writeln('введите верхний предел');
    readln(b);

    if a >= b then
    begin
        writeln('верхний предел интегрирования должебыть больше нижнего');
        readln;
        halt
    end;

    writeln('ведите точность');
    readln(eps);
    if eps < 1e-6 then
    begin
        writeln('заданная точность не допустима');
        readln;
        halt
    end;

    writeln('Введите графический параметр f');
    readln(fx);
    writeln('Введите графический параметр c');
    readln(c);
end;
function f(x,fx,c: double): double;
var
  e,z:double;
 begin
    e:=exp(-sqr(x));
    z:=-fx;
    if x < -c then
        f :=z
    else if (x >-c) and (x<c) then
        f :=e
    else if x>c then
        f:=x
 end; { function f }
procedure Integral(var a,b,eps,fx,c,x:double);
var
 iteration:integer;
 res: double;
 prev_res: double;
 step: double;

begin
    iteration := 0;
    res := 0;  step := (b - a) / n;

    repeat
        iteration := iteration + 1;
        prev_res := res;
        res := 0;
        x := a;

        while x < b do
        begin
            res := res + f(x,fx,c);
            x := x + step;
        end;
        res := res * step;

        writeln('Интеграция ', iteration, ' шаг ', step:4:1, ' значение ', res:4:1);
        step := step / 2;
    until (iteration > 1) and (abs(res - prev_res) < eps);
end;
var

    a, b: double;
    eps: double;
   R, R_squared: double;
    C, D: double;
    res: double;
    x,fx: double;
begin
    Input(a,b,eps,fx,c);
    Integral(a,b,eps,fx,c,x);
    writeln('окончательное значение ', res:4:2);
    readln;
end.

помогите мне разделить вот этот кусок кода в процедуре Integral

  
writeln('Интеграция ', iteration, ' шаг ', step:4:1, ' значение ', res:4:1);

Заранее спасибо

[Stilet]

А зачем? У тебя и так оптимальное деление...

[world12_tk]

Дело в том, что препод мой очень любит порядок..... и мне сказал, что эта строчка должна находится в проуедуре вывода.... я пытался сам, но безуспешно....