Определить средний возраст лиц, приехавших в командировку

interface
 
uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.StdCtrls, Vcl.Grids,
  Vcl.ExtCtrls, Vcl.ComCtrls;
 
type
 Hotel=record
 NomberRoom:byte;
 ThselPriezd:string[20];
 Vozr:byte;
 NomberBookRegistr:byte;
 
 
 end;
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    StringGrid1: TStringGrid;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  mas:array[1..20] of Hotel;
  p:Hotel;
  i:integer;
implementation
 
{$R *.dfm}
 
uses Unitwindows;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 i:=1;
 with StringGrid1 do
 begin
 Cells [0,0] := 'Номер комнаты';  //в зафиксированной строке вписали имена в столбик;
 Cells [1,0] := 'Цель приезда'; //1 столбец нулевая строка
 Cells [2,0] :='Возраст';
 Cells [3,0] :='Номер в книге регистрации';
end;
end;
 
 
procedure TForm1.N2Click(Sender: TObject);
begin
Form2.Show;
end;
 
procedure TForm1.N3Click(Sender: TObject);
var j:integer;
 
begin
 for j :=1 to i-1 do
 begin
   with StringGrid1 do
   begin
     Cells [0,j]:=IntToStr(mas[j].NomberRoom);  //0 столбец j строка
     Cells [1,j]:=mas[j].ThselPriezd;
     Cells [2,j]:=IntToStr(mas[j].Vozr);
     Cells [3,j]:=IntToStr(mas[j].NomberBookRegistr);
     rowcount:=rowcount+1;
   end;
 end;
 
end;
 
procedure TForm1.N5Click(Sender: TObject);
var SrVozr:real;
l,m:integer;
  j: Integer;
begin
 
     //чистим StringGrid1
  with StringGrid1 do
  for l:=FixedCols to ColCount-1 do
  for m:=FixedRows to RowCount-1 do
    Cells[l,m]:='';
      SrVozr:=0.0;
    //Определяем средний возраст
    begin
    SrVozr:= SrVozr+StrToFloat(StringGrid1.Cells[2,j]);
    end;
end.

procedure TForm1.N5Click(Sender: TObject);
var SrVozr:real;
l,m:integer;
  j: Integer;
begin
 
     //чистим StringGrid1
  with StringGrid1 do
  for l:=FixedCols to ColCount-1 do
  for m:=FixedRows to RowCount-1 do
    Cells[l,m]:='';
      SrVozr:=0.0;
    //Определяем средний возраст
for j:=FixedRows to RowCount-1 do
    begin
    SrVozr:= SrVozr+StrToFloat(StringGrid1.Cells[2,j]);
    end;

procedure TForm1.N5Click(Sender: TObject);
var
j:Integer;
SrVozr:real;
begin
    SrVozr:=0;//В начале сумма ворзастов равна 0.
    with stringgrid1 do
    begin
            for j:=fixedrows to rowcount-1 do//Перебираем все значащие строки в таблице.
            //Добавляем значение столбца (2) с возрастом к сумме возрастов.
            SrVozr:=SrVozr+StrToFloat(StringGrid1.Cells[2,j]);
            //Делим сумму возрастов на количество значащих строк в таблице,
            //то есть на количество возрастов.
            SrVozr:=SrVozr/(rowcount-fixedrows);
    end;
    //Выводим в заголовок программы средний возраст.
    caption:=floattostr(SrVozr);
end;