Program lab4;
 uses wincrt, strings;
 var names:array[0..9] of string;
     sex:array[0..9] of char;
     price:array[0..9] of integer;
     n, i, max, m, g, k:integer;

 begin
      Writeln('Введите число покупателей (до 10)');
      while (n < 1) or (n > 10) do
          Readln(n);

      for i:=0 to n - 1 do
          begin
               Writeln('Покупатель ', i+1);

               Writeln('Имя');
               Readln(names[i]);

               Writeln('Пол');
               Readln(sex[i]);

               Writeln('Цена товара');
               Readln(price[i]);
          end;

      for i:=0 to n do
          begin
          for k:=i to n do
              if (names[i] = names[k]) and (sex[i] = sex[k]) then
                 m:=m + price[k];
          if m > max then
             begin
                 max:=m;
                 g:=i;
             end;
          m:=0;
          end;
      Writeln('Покупатель, потративший больше всего');
      Writeln('Имя:', names[g], ' пол:', sex[g], ' сумма:', max);
 end.