найти первый отрицательный элемент массива имеющий чётный номер (Delphi)

[Vanger]

Требуется найти первый отрицательный элемент массива имеющий чётный номер. Сам не справляюсь, не работает( помогите бедному студенту)
завтра сдавать задачу, не получаецца (

вот сам код:

procedure TForm1.Edit1Change(Sender:TObject);
begin
If Edit1.Text<>''then
StringGrid1.RowCount:=StrToInt(Edit1.Text);
end;
procedure TForm1.Button1Click(Sender:TObject);
Var a:array[1..10]of integer;
i,n,k:integer;
begin
n:=StrToInt(StringGrid1.Cells[1,i-1]);
For i:=1 to n do
a[i]:=StrToInt(StringGrid1.Cells[1,i-1]);
for i:=1 to n do
StringGrid1.Cells[0,i-1]:=IntToStr(i);
for i:=n DownTo 1 do
If(a[i]<0) and (i mod 2=0) then
k:=i;
Label2.Caption:='k='+IntToStr(k)+#13+'Число='+IntToStr(a[k]);
end;
end.

И не могли бы Вы ещё и содержание формы написать?

заранее спасибо всем!


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[shelest]

for i:=1 to n do
begin
if (mas[i]<0) and (i mod 2=0) then
begin
break;
writeln (mas[i]);
end;
end;

[Vanger]

а почему div, если mod сравниваем с 0 ?

но все равно спасибо!

[shelest]

да mod перепутал

[mss]

> не получаецца

А дебильный "пацанкаффский" сленг - это к тому чтобы привлечь внимание таких же дебилов, да ?

[Vanger]

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

> не получаецца

А дебильный "пацанкаффский" сленг - это к тому чтобы привлечь внимание таких же дебилов, да ?

а Вы тут учитель русского языка с литературой? и с чего Вы взяли что это "паццанкаффский" (не сразу и выговоришь то, не то чтобы написать) сленг, узнавали где? и говорить по поводу дебилов и переходить на личности, мягко говоря, неэтично, учитывая название темы и просьбы в помощи, в которой Вы даже не поучаствовали. И Вам что, религия не позволяет мимо таких "сленгов" мимо пройти? и раз уж Вы в этой теме, привлеченные этим "сленгом", то кто из нас, извиняюсь, "дибил" ???