Помогите найти ошибку в задаче

[BDSH]

Всем привет, помогите пожалуйста найти ошибку в задаче.
Нужно узнать четное или нечетное первое число в массиве.

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

var

   C:array of real;
   i,n,m:integer;
procedure TForm1.Button3Click(Sender: TObject);

begin
    Edit4.Text:='';
    if Edit1.text='' then
                                 begin
                                 ShowMessage('ÂÂåäèòå êîëè÷åñòâî N');
                                 Exit;
                                 end;

    n:=StrToInt(Edit1.text);
    SetLength(C,n);

    Randomize;
    for i:=0 to n-1 do
                      begin
                        C[i]:=Random(10)-5;

                       Edit4.Text:=Edit4.text+FloatToStr(C[i])+' ';
                      end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var     i:integer;
begin
  edit3.Clear;
          [COLOR="rgb(46, 139, 87)"]  if c[0] mod 2=0 then showmessage('chet')
            else ShowMessage('nechet');[/COLOR]
end;

end.

Буду очень благодарен, могу положить на баланс со стипендии)

[type_Oleg]

Сообщение от BDSH

... Нужно узнать четное или нечетное первое число в массиве...

Если только это , то есть волшебное слово из 3-х букв - Odd

 if Odd(C[0]) then ShowMessage('нечетное') else  ShowMessage('четное');

И в любом случае надо сделать

C:array of Integer;

потому что с Real ни mod ни Odd не работают. Действительные числа не бывают четными/нечетными.

[BDSH]

type_Oleg, вы не могли бы ещё раз помочь мне?