Найти все нечетные, меньшие введенного числа,но большие 0 и поместить их в массив - Delphi - Ответ 11263097

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Grids;
 
type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    Label1: TLabel;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Label2: TLabel;
    procedure NaitiMassiv;
    procedure NaitiSum;
    procedure VivodMas;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a:array of integer;
  s,i:Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.NaitiMassiv;
VAR
j:Integer;
begin
j := 0;
for i := 3 to SpinEdit1.Value-1 do Begin
    if (i mod 2 = 1) THEN begin
        inc(j);
        Setlength(a, j);
        a[j-1] := i;
        end;
    end;
end;
 
Procedure TForm1.NaitiSum;
begin
s := 0;
for i := 0 to length(a)-1 do if (a[i] mod 3 = 0) then s := s + a[i];
Label2.Caption := 'Сумма = ' + IntToStr(s);
end;
 
Procedure TForm1.VivodMas;
begin
StringGrid1.RowCount := Length(a);
for i := 0 to length(a)-1 do Stringgrid1.Cells[0,i] := IntToStr(a[i]);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
NaitiMassiv;
NaitiSum;
VivodMas;
end;
 
end.