Найти суму и количество элементов по условию(результат выводится неправильно)

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
 
    procedure Edit1Change(Sender: TObject);
   procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
A: array of real;
 
 i, N: integer;
 
 S: real;
 
implementation
 
{$R *.dfm}
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text = '' then exit;
n:=StrToInt(Edit1.Text);
stringgrid1.ColCount:=n;
for i:=0 to n-1 do
StringGrid1.Cells[i,0]:=inttostr(i);
SetLength(a,n);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
 
For i:=0 to n-1 do
 A[i]:=StrToFloat(StringGrid1.Cells[i,1]);
S:=0; k:=0;
for i:=0 to N-1 do
  if (A[i]>=0) then
    if ((A[i]<=1)) then
   begin
    S:= S + A[i];
    inc(k);
    end;
 
Label6.Caption:= ' S = '+ FloatToStr(S);
Label7.Caption:= ' k = '+ IntToStr(k);
end;
 
 
 
end.

StringGrid1.Cells[i,0]:=inttostr(i);

 A[i]:=StrToFloat(StringGrid1.Cells[i,1]);

 A[i]:=StrToFloat(StringGrid1.Cells[i,0]);

for i:=0 to N-1 do
  if (i>=0) then
    if ((i<=1)) then
   begin
    S:= S + A[i];
    inc(k);
    end;