База данных

const
  f1name = '1 файл';
  f2name = '2 файл';
  
type
  GT = record
    id : Integer;
    time : String[5];
  end;
 
function vector(time : String) : Integer;
begin
  var a := time.toWords(':'); Result := StrToInt(a[0]) * 60 + StrToInt(a[1]);
end;
 
function Parse(S : String; var id : Integer; var r : String) : Boolean;
begin
  Result := False;
  try
    var a := S.toWords('|');
    id := StrToInt(a[0].Trim);
    r  := a[1].Trim;
  except
    Exit;
  end;
  Result := True;
end;
  
begin
  var id, idMin : Integer;
  var S1, S2, group, time : String;
  var f1, f2 : Text;
  var a, aMin : GT;
 
  var groups := New Dictionary<string,GT>; // Группа и id победителя
  
  Reset(f1, f1name); Reset(f2, f2name);
  while Not EOF(f1) and Not EOF(f2) do
    begin
      ReadLn(f1, S1); ReadLn(f2, S2);
      if Parse(S1, id, group) and Parse(S2, id, time) then
        begin
          (a.id, a.time) := (id, time);
          if Not groups.TryGetValue(group, aMin) then // такой группы ещё нет
            groups[group] := a
          else if vector(aMin.time) > vector(a.time) then // группа есть, а время не минимальное
            groups[group] := a;
        end;
    end;
  Close(f1); Close(f2);
  
  WriteLn('Номера участников победителей для каждой группы:');
  foreach var u in groups do
    WriteLnFormat('Группа {0} - победитель с id {1}', u.key, u.value.id);
end.

type
  TSpisoc = array [1..11] of record
    fio: string;
    id: string;
    grupa: string;
    finish: integer;
  end;
 
var
  sort: Tspisoc;
  
  fU, fF: text;
  str: string;
  i, min: integer;
  set_gr: set of string;
 
begin
  assign(fU, 'Участники.txt');
  assign(fF, 'Протокол финиша.txt'); 
  Reset(fU);
  readln(fU, str);
  i := 1;
  
  while not EOF(fU) do
  begin
    readln(fU, str);
    sort[i].id := copy(str, pos('|', str) + 1, 2);
    sort[i].grupa := copy(str, pos('|ГР', str) + 1, 5);
    sort[i].fio := copy(str, 1, 18);
    inc(i);
  end;
  close(fU);
  
  
  Reset(fF);
  i := 1;
  readln(fF, str);
  while not EOF(fF) do
  begin
    readln(fF, str);
    if str = '' then inc(i)
    else
    begin
      if pos('сошел', str) <> 0 then
      begin
        sort[i].finish := 0;
        inc(i);
      end
      else
      begin
        sort[i].finish := StrToInt(concat((copy(str, pos('|', str) + 1, 2)), (copy(str, pos('|', str) + 4, 2)), (copy(str, pos('|', str) + 7, 2))));
        inc(i);
      end;
    end;
  end;
  close(fF);
  
  
  writeln('ФИО                |Группа|Лучшее время финиша');
  for var k := 1 to i - 2 do
  begin
    min := sort[k].finish;
    for var j := 1 to i - 2 do
    begin
      if sort[k].grupa = sort[j].grupa then
        if (sort[j].finish < min) and (sort[j].finish <> 0) then
          min := sort[j].finish;
    end;
    
    if not (sort[k].grupa in set_gr) then
      if(sort[k].finish <> 0) then
      begin
        writeln(sort[k].fio, ' |', sort[k].grupa, ' |', copy(IntToStr(min), 1, 1), ':', copy(IntToStr(min), 2, 2), ':', copy(IntToStr(min), 4, 2));
        include(set_gr, sort[k].grupa);
      end;
  end;
    
end.