PROGRAM zap_2;
USES crt;
TYPE
  vibori=record
    name:string;
    oblast:string[20];
    golos:longint;
  end;
VAR
  group:array [1..43] of vibori;
  st,st2:string;
  n,k:byte;
  i,p,j:integer;
  f:text;
  vib:vibori;
  flag:integer;
BEGIN
  clrscr;
  assign(f,'LIST14.TXT');
  {$I-}
  reset(f);
  {$I+}
  k:=1;
  while not(EOF(f)) do
    begin
      readln(f,st);
      if k=1 then
        begin
          n:=0;
          i:=1;
          if st[Length(st)]<>' ' then
            st:=st+' ';
          while (i<Length(st)) do
            begin
              p:=Pos(' ',st);
              group[i].name:=Copy(st,1,p-1);
              Delete(st,1,p);
              inc(i);
            end;
        end;
      if k=2 then
        begin
          i:=1;
          while (i<Length(st)) do
            begin
              group[i].oblast:=Copy(st,1,20);
              Delete(st,1,21);
              inc(i);
            end;
        end;
     if k=3 then
        begin
          i:=1;
          while (i<Length(st)) do
            begin
              st2:=Copy(st,1,7);
              Val(st2,group[i].golos,flag);
              Delete(st,1,8);
              inc(i);
            end;
        end;
      inc(k);
    end;
  repeat
  until keypressed;
END.