[savula_irina]

Помогите пожалуйста довести до ума!!!! Задача та же! Ничего не понимаю в делфи! А сдать работу надо! ПЛИЗЗЗЗ!

procedure TForm1.BitBtn1Click(Sender: TObject);
var A:array of real ;
n,i,j:integer;
s:string;
Flag:boolean;
begin
n:=SpinEdit1.value;
SetLength (A,n);
for i:=0 to n-1 do
begin
s:=StringGrid1.Cells[i+1,1];
if s='' then begin showmessage('Введите числовое значение'); exit end;
for j:=1 to length(s) do
if not (s[j] in ['0','1','2','3','4','5','6','7','8','9','-',DecimalSeparator])
then begin showmessage('Введите числовое значение'); exit end;
a[i]:=StrToFloat (s);
end;
Flag:=0;
for i:=1 to n-2 do
begin
if ((a[i] mod 2)=1) and (a[i+1] mod 2)=0) then
flag:=1;
j:=0; for i:=0 to n-1 do
if a[i]<0 then j:j+1;
if Flag:=0 then
begin
StringGrid2.ColCount:=j+1;
j:=0;
for i:=0 to n-1 do
if a[i]<0 then
begin
stringGrid2.Cells[j,1]:=inttostr(a[i]);
j=:j+1;

end;

end.