Процедурный тип в Delphi

[<Maria>]

Есть задание: "С помощью одной процедуры протабулировать сумму, разницу, произведение пар функций на отрезке [0, 1] с шагом 0.2 функции:f(x) = x, f(x) = sin(x), f(x) = cos(x)"
Я попыталась что-то изобразить, вот что получилось:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

const min=0;
      max=1;
      shag=0.2;


function F1(X: Double): Double;
begin
  Result :=x;
end;

function F2(X: Double): Double;
begin
  Result :=sin(x);
end;

function F3(X: Double): Double;
begin
  Result :=cos(x);
end;

type
  TFunc = function (X: Double): Double;


var i, j, koliter: integer;
    tmp,x:real;
    F: TFunc;
begin
   tmp:=(max-min)/shag;
   koliter:=round(tmp);

    x:=min;
        write('x= ');
         for i:=1 to koliter+1 do
         begin
             write(x:5:1);
             x:=x+shag;
         end;
  Writeln;
  F := f1;
  Write('f1 = ');
  for i:=1 to koliter+1 do
  begin
  x:=x+shag;
  Write(F(x):5:2);
  end;

  Writeln;
  F := f2;
  Write('f2 = ');
  for i:=1 to koliter+1 do
  begin
  x:=x+shag;
  Write(F(x):5:2);
  end;

  Writeln;
  F := f3;
  Write('f3 = ');
  for i:=1 to koliter+1 do
  begin
  x:=x+shag;
  Write(F(x):5:2);
  end;
  writeln;

  Readln;
end.

Но это только начало (или вообще не то), может кто-то подскажет, как действовать дальше...
Буду благодарна за любую информацию

[Sam Gold]

С помощью одной процедуры

Поэтому и надо делать с помощью одной процедуры. Например:

procedure print(fun1,fun2 :TFunc;step,left,right:real);
  begin
  //===========умножение=========
  writeln('   x    |  f1(x)*f2(x)   ');

    while(left<=right) do
    begin
       writeln(left, '  ',fun1(left)*fun2(left));
       left:=left+step;
    end;
  //==========сумма и разность аналогично===  

  end;