Использование подпрограмм

[inferno fm]

Помогите с задачкой пожалуйста.

Нужно сделать программу вывода на экран таблицы функции, которую нужно оформить в виде процедуры.

Составлял ее с использованием рекуррентной последовательности, но скорее всего неправильно вывел формулу для определения члена этой последовательности с шагом h=xk-xn/M (M=10). Помогите пожалуйста разобраться. Ниже привожу код и условие в docx, и файл проекта.

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

  var
    Form1: TForm1;

  implementation

{$R *.dfm}

  procedure TForm1.FormCreate(Sender: TObject);
   begin
        Edit1.text:='0,2';
        Edit2.text:='1';
        Edit3.text:='10';
        Edit4.text:='0,001';
   end;
  procedure TForm1.Button1Click(Sender: TObject);
   var xn,xk,x,h,e,a,s,y,M : extended;
       n:integer;
 begin
 Memo1.Clear;
   xn:=StrToFloat(Edit1.Text);
   Memo1.Lines.Add('xn='+FloatToStrF(xn,ffFixed,6,2));
   xk:=StrToFloat(Edit2.Text);
   Memo1.Lines.Add('xk='+FloatToStrF(xk,ffFixed,6,2));
   M:=StrToFloat(Edit3.Text);
   Memo1.Lines.Add('M='+FloatToStrF(h,ffFixed,8,3));
   e:=StrToFloat(Edit4.Text);
   Memo1.Lines.Add('e='+FloatToStrF(e,ffFixed,8,5));
   x:=xn;
   h:=xk-xn/M;

 repeat
        a:=1;
        S:=1;
        n:=0;
 while (abs(a)>e) do begin
        n:=n+1;
        a:=-a*3*sqr(x)/2*n;
        s:=s+a;
 end;
        y:=(1-sqr(x)/2)*cos(x)-x/2*sin(x);
 Memo1.Lines.Add('  ïðè x='+FloatToStrF(x,ffFixed,6,2)+'   ñóììà='
                 +FloatToStrF(s,ffFixed,8,4)+ '  y='
                 +FloatToStrF(y,ffFixed,8,4)+'   N='+IntToStr(n));
        x:=x+h
 until x>(xk+h/2)
end;
end. 


[Пепел Феникса]

а что разбить на процедурки сам не могешь?

[inferno fm]

Сообщение от Пепел Феникса

а что разбить на процедурки сам не могешь?

буду пробовать, вообще основная проблема в том ,что скорее всего не правильно вывел формулу для нахождения члена последовательности...вот и выложил все, чтобы кто-нибудь глянул, не могу понять в чем ошибка.