Найти количество нечетных элементов массива

const n=10;
var i:integer;
mas: array [1..n] of integer; {Объявляем массив}
kol:integer;
 
begin
kol:=0;
for i:=1 to n do{Просто заполняем массив}
   mas[i]:=i;
 
for i:=1 to n do
   if mas[i] mod 2 = 0  then inc(kol);{идем по массиву и проверяем его на четность}
 
writeln('kol=',kol);
readln;
end.

const n=10;
var i:integer;
mas: array [1..n] of integer; {объявляем массив}
kol:integer;
 
begin
kol:=0;
for i:=1 to n do{просто заполняем массив}
   mas[i]:=i;
 
for i:=1 to n do{идем по массиву и проверяем его элементы на четность}
   if mas[i] mod 2 = 1  then inc(kol);
 
writeln('kol=',kol);
readln;
end.

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const n=10;
var i:integer;
mas: array [1..n] of integer; {Объявляем массив}
kol:integer;
 
begin
kol:=0;
for i:=1 to n do
begin{Просто заполняем массив}
   mas[i]:=i;
   StringGrid1.Cells[0,i]:=InTTostr(Mas[i]);
end  ;
for i:=1 to n do     if mas[i] mod 2 <> 0  then inc(kol);{идем по массиву и проверяем его на четность}
  ShowMessage('Kol='+Inttostr(kol));
end;
 
 
end.