Структура: Найти самую молодую команду среди учасников турнира.

type
    Tsportsman =  record
      team: string[20];
      fio: string[20];
      number: integer;
      age: integer;
    end;

team=record
        name:string[20];
        sum_age:integer;
        count:integer;
        srd_age:double;
       end;

min:=a[1];
for i:=2 to n do
if a[i]<min then min:=a[i];

for i:=1 to nzap do
  for j:=1 to nzap do
    if arr[i].team = arr[j].team then
    begin
      arrtm[i].name:= arr[i].team;
      arrtm[i].sum_age:= arrtm[i].sum_age + arr[j].age;
      arrtm[i].count:= arrtm[i].count+1;
      arrtm[i].srd_age:= arrtm[i].sum_age / arrtm[i].count;
    end;

m:=1;
b[m].name:=a[1].team;
b[m].sum_age:=a[1].age;
b[m].count:=1;
for i:=2 to n do
 begin
  j:=1;
  while a[i].team<>b[j].name do inc j;
  if j>n then
   begin
    inc(m);
    b[m].name:=a[1].team;
    b[m].sum_age:=a[1].age;
    b[m].count:=1;
   end
  else
   begin
    inc(b[j].sum_age,a[i].age);
    inc(b[j].count;
   end;