Арифметическая задача, Не могу сделать.... Опции

[Sunder]

Привет, всем! Помогите пожалуйста на писать на Delphi программу, вычисляющую результат по следующей формуле:
∑ (сверху n, снизу i:=1) = ((-1) в степени i)*i?, где i? = 2*4*6*... (если i четно), 1*3*5*... (если i нечетно).
Это у нас экзамен на первом курсе такой был, в понедельник пересдачу назначили. Я вроде бы сделал, но препод говорит, что неправильно вычисляет
Помогите пожалуйста.

[Sunder]

Вот, что у меня получилось. Вроде бы, по моим вычислениям на бумажке считает правильно, но препод говорит, что неправильно и не объясняет почему. Посмотрите, может все-таки действительно у меня ошибка .

procedure TForm1.Button1Click(Sender: TObject);
var
  n,a:integer;
  b,c:real;
begin
  n:=StrToInt(Edit1.Text);
  if (n mod 2) = 0 then
   begin
    For a:=2 to n do
     if (a mod 2) = 0 then
      b:=b+(1) * a;
   end
  else
   Begin
    For a:=1 to n do
     begin
      c:=a;
       if (a mod 2) = 0 then
        b:=b
       else
        b:=b+(-1) * c
     end;
   end;
  Edit2.Text:=FloatToStr(b);
end;