//fpc 3.0.0

program HelloWorld;
var
    names: array[1..10] of string;
    sex: array[1..10] of string;
    weight: array[1..10] of integer;
    checked: array[1..10] of string;
    b: boolean;
    n, i , k, l, m, j: integer;
begin
    l := 1;
    n := 0;
    checked[1] := '';
    while (n < 1) or (n > 10) do begin
        writeln('Введите количество пассажиров (1-10)');
        {readln(n);}
        n := 5;
    end;

    names[1] := 'abcd';
    names[2] := 'abcd';
    names[3] := 'abcdefg';
    names[4] := 'abcd';
    names[5] := 'abcd';

    weight[1] := 5;
    weight[2] := 5;
    weight[3] := 4;
    weight[4] := 5;
    weight[5] := 5;

    sex[1] := 'м';
    sex[2] := 'м';
    sex[3] := 'ж';
    sex[4] := 'м';
    sex[5] := 'м';


    writeln('Введите информацию о пассажирах');
    for i := 1 to n do begin
        {readln(names[i]);}
        {readln(sex[i]);}
        {readln(weight[i]);}
    end;

    for i:=0 to n do begin
        m := 0;
        j := 0;
        b := false;
        for k := 1 to n do
            if (names[i] = checked[k]) or (sex[i] <> 'м') then
                b := true;

        checked[l] := names[i];
        l := l + 1;
        if (b = true) then
            continue;

        for k := i to n do
            if (names[i] = names[k]) then begin
                m := m + weight[k];
                j := j + 1;
            end;
        writeln('Имя: ', names[i], '; общий вес: ', m, '; количество: ', j);
    end;

end.