Требуюсь в помощи с решением задач, очень срочно

[Star Fish]

Впервые столкнулась с программой Delphi "благодаря" институту. Читала, разбиралась, всё испробовала, но так ничего и не дошло. Задание состояло из следующего (программа в Visual Basic + 2 упр. по Delphi). Первое сделала, а вот со вторым явно проблемы...
Буду очень благодарна тому человеку, который потратит на это свое личное время. Просто я правда очень нуждаюсь в помощи, иначе бы не писала сейчас сюда.
Понимаю, что всё за "спасибо" не делается, но надеюсь такие люди найдутся
Вот 2 упражнения, которые нужно выполнить в Delphi.

Упражнение 1.Спроектировать алгоритм по нисходящей схеме с использованием базовых управляющих структур для нижеследующей задачи

Определить среднее значение функции у = f(x) на заданном интервале [хn, хk] с за-данным шагом.

Упражнение 2.Оформите предыдущее задание из пункта Упражнения 1 в виде вспомогательного алгоритма и, используя его, составьте основной алгоритм для своей задачи.

Заданный интервал [хn, хk] с заданным шагом делите на m частей и определяйте для каждой части среднее значение функции у = f(x).

Пожалуйста, кто может помочь, отзовитесь...
Заранее спасибо.

[W.i.d.g.e.t.1]

первая задача как-то так:
procedure TForm1.Button1Click(Sender: TObject);
var
m, a, shag: integer;
s: extended;
begin {возьмем например синус}
a:=strtoint(edit1.Text);
s:=sin(a);
m:=1;
shag:=strtoint(edit3.Text);
while a<=strtoint(edit2.Text) do
begin
s:=s+sin(a+shag);
m:=m+1;
a:=a+shag;
end;
showmessage(floattostr(s/m));
end;

[W.i.d.g.e.t.1]

со второй задачей разрыв мозга!!!
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
m, a, a1, shag, c, b: integer;
s, shag2, b1: extended;
implementation

{$R *.dfm}

function Srednee: extended;
begin {возьмем например синус}
a:=a1;
s:=sin(a);
m:=1;
while a<=b1 do
begin
s:=s+sin(a+shag);
m:=m+1;
a:=a+shag;
end;
Srednee:=s/m;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
shag:=strtoint(edit3.Text);
a1:=strtoint(edit1.Text);
b:= strtoint(edit2.Text);
shag2:= (b-a1)/strtoint(edit4.Text);
b1:=a1+shag2;
while a1< b do
begin
c:=trunc(b1);
a1:=c;
b1:= c+shag2;
label5.Caption:=label5.Caption+#13+ floattostr(srednee);
end;
end;

end.
если что не понятно - спрашивай