Одномерные массивы

[Sadisto]

День добрый, уважаемые программисты!
Я начинающий, поэтому, вероятно, многого не знаю.
У меня возникла следующая проблема:

цель - в массиве из n натуральных чисел найти сумму, максимальное, минимальное и его индекс в массиве для всех четных цифр.

Что у меня получается -

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    edt1: TEdit;
    strngrd1: TStringGrid;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure edt1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
Var
  n,i,imax: integer;
  max:real;
  a: array[1..10] of real;
begin
  n:=StrToInt(edt1.Text);
  For i:= 1 to n Do
      a[i]:=StrToFloat(strngrd1.Cells[i, 1]);
  imax:=1;
  max:=a[1];
  For i:= 2 to n Do
    If a[i]>max Then
    Begin
      imax:=i;
      max:=a[i]
    End;
    lbl2.Caption :='MAX  = '+  FloatToStr(max);
    lbl3.Caption :='iMAX  = '+ IntToStr(imax);
    strngrd1.col:=imax;
    strngrd1.row:= 1;
  end;


procedure btn3Click(Sender: TObject);
var
s,i:Integer;
a: array[1..10] of integer;
begin
s:=0;
for i:=1 to a[i] do
  begin
  if Odd(a[i])=false then s:=s+a[i]; //если элемент четный, то добавляем к сумме
 end;

  lbl6.Caption :='SUM  = '+  FloatToStr(s);
end;



procedure TForm1.btn2Click(Sender: TObject);
Var
  n,i,imin: integer;
  min:real;
  a: array[1..10] of real;
begin
  n:=StrToInt(edt1.Text);
  For i:= 1 to n Do
      a[i]:=StrToFloat(strngrd1.Cells[i, 1]);
  imin:=1;
  min:=a[1];
  For i:= 2 to n Do
    If a[i]<min Then
    Begin
      imin:=i;
      min:=a[i]
    End;
    lbl4.Caption :='MIN  = '+  FloatToStr(min);
    lbl5.Caption :='iMIN  = '+ IntToStr(imin);
    strngrd1.col:=imin;
    strngrd1.row:= 1;
  end;



procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
var n, i:integer;
begin
  if key = #13 then
  Begin
    n:=StrToInt(edt1.Text);
    edt1.Enabled:=False;
    strngrd1.RowCount:= 2;
    strngrd1.ColCount :=n+1;
    For i:= 1 to n Do
      strngrd1.Cells[i, 0]:=IntToStr(i);
   strngrd1.setfocus
  End;
end;
end.

Компилятор выдает след. ошибку:

lbl6.Caption :='SUM  = '+  FloatToStr(s);

Undeclared identifier lbl6

Подскажите пожалуйста, где ошибка?

[mihali4]

Читаем правила раздела и думаем...
Причем не так, по диагонали, а вдумчиво читаем!
Подсказка - для вас персонально особо важен пункт 7.
Модератор