обработка одномерных массивов

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 const n=4;
    type TVector=array[1..10] of integer;
var
  Form1: TForm1;
     a: array [1..10] of integer ;
     i: byte;
     S,l:real;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    i:=1;
    for i:=1 to memo1.Lines.Count do;
    a[i]:=strtoint(memo1.lines[i-1]);
 
        if not odd(i) then
         begin
         S:=0;
         for i:=1 to n do
         if not odd(a[i]) and (a[i]>=0) then S:=S+a[i];
 
         l:=0;
         for i:=1 to n do
         if a[i]<0 then l:=l+1;
 
    listbox1.items.add(floattostr(S));
  listbox1.items.add(floattostr(l));
 
end;
end;
end.

 const n=4;//это выкинуть
    type TVector=array[1..10] of integer;//это выкинуть

procedure TForm1.Button1Click(Sender: TObject);
var a,i,s,l:integer;
begin
s:=0;
l:=0;
for i:=1 to memo1.Lines.Count do//не нужно точку с запятой
     begin
      a:=strtoint(memo1.lines[i-1]);
      if not odd(i) then
       begin
        if not odd(a) and (a>0) then S:=S+a//ноли-то чего складывать?
        else  if a<0 then l:=l+1;
       end;
     end;
   listbox1.items.add(inttostr(S));
   listbox1.items.add(floattostr(l));
end;