type
      TPlec = (pKobieta, pMezczyzna);
      TOsoba = record
                imie: string;
                wiek: integer;
                plec: TPlec;
                end;

      TRodzina = class

        FNazwisko: string;
        FIleOsob: integer;
        FOsoba: array[1..10] of TOsoba;

        constructor Create(nazwisko: string);
        procedure DodajOsobe(osoba: TOsoba);
        function SredniaWieku: integer;
        function NestorRodu: string;
       
      end;

constructor TRodzina.Create(nazwisko: string);
begin
  inherited;
    FNazwisko:=nazwisko;
    FIleOsob:= 0;
end;

procedure TRodzina.DodajOsobe(osoba:TOsoba);
begin
    if FIleOsob <= 9 then
      begin
        FOsoba[FIleOsob + 1].imie:= osoba.imie;
        FOsoba[FIleOsob + 1].wiek:= osoba.wiek;
        FOsoba[FIleOsob + 1].plec:= osoba.plec;
        FIleOsob:= FIleOsob + 1;
      end
    else
      ShowMessage('Rodzina pełna');
end;

function TRodzina.SredniaWieku:integer;
 var i: integer;
      srednia: integer;

begin
    srednia:= 0;
    if FIleOsob = 0 then
        begin
          ShowMessage('Rodzina pusta');
          Exit;
        end;
    for i:= 1 to FIleOsob do srednia:= srednia + FOsoba[i].wiek;
    Result:= srednia div FIleOsob;
end;

function TRodzina.NestorRodu: string;
begin
   
end;

---