Форум: «ЕГЭ по информатике»

Решал С4 из вот этого варианта:Соревнования по игре «Тетрис-онлайн» проводятся по следующим
правилам:
1. Каждый участник регистрируется на сайте игры под определённым
игровым именем. Имена участников не повторяются.
2. Чемпионат проводится в течение определённого времени. В любой
момент этого времени любой зарегистрированный участник может зайти на
сайт чемпионата и начать зачётную игру. По окончании игры её результат
(количество набранных очков) фиксируется и заносится в протокол.
3. Участники имеют право играть несколько раз. Количество попыток
одного участника не ограничивается.
4. Окончательный результат участника определяется по одной, лучшей для
данного участника игре.
5. Более высокое место в соревнованиях занимает участник, показавший
лучший результат.
6. При равенстве результатов более высокое место занимает участник,
раньше показавший лучший результат.
В ходе соревнований заполняется протокол, каждая строка которого
описывает одну игру и содержит результат участника и его игровое имя.
Протокол формируется в реальном времени по ходу проведения
чемпионата, поэтому строки в нём расположены в порядке проведения игр:
чем раньше встречается строка в протоколе, тем раньше закончилась
соответствующая этой строке игра.
Спонсор чемпионата предоставил призы различной ценности для
награждения K лучших игроков (K≤20). Если участников окажется меньше
K, призами награждаются все. Вам необходимо написать эффективную, в
том числе по памяти, программу, которая по данным протокола определяет
K лучших игроков и занятые ими места.
Перед текстом программы кратко опишите алгоритм решения задачи и
укажите используемый язык программирования и его версию.
Описание входных данных
Первая строка содержит числа K – количество имеющихся призов и N –
общее количество строк протокола.
Каждая из следующих N строк содержит записанные через пробел
результат участника (целое положительное число, не превышающее 100
миллионов) и игровое имя (имя не может содержать пробелов). Строки
исходных данных соответствуют строкам протокола и расположены в том
же порядке, что и в протоколе.
Описание выходных данных
Программа должна вывести имена и результаты K лучших игроков в
порядке занятых мест по форме, приведённой ниже в примере. Если
игроков окажется меньше K, нужно вывести данные обо всех игроках.
Пример входных данных:
6 15
69485 Jack
95715 qwerty
95715 Alex
83647 M
197128 qwerty
95715 Jack
93289 Alex
95715 Alex
95715 M
32768 BilboBaggins
99824 TetrisMaster
45482 BilboBaggins
62123 BilboBaggins
77623 M
56791 Champion
Пример выходных данных для приведённого выше примера входных данных:
1. qwerty (197128)
2. TetrisMaster (99824)
3. Alex (95715)
4. Jack (95715)
5. M (95715)
6. BilboBaggins (62123) . Программа работает, но неверно выводит некоторых участников, ошибку найти не могу. Моё решение:
program tetris;

program tetris;

var
rez: array[1..20] of record
score: longint;
name: string; end;
name0: string;
score0, i, N: longint;
K, m: byte;
a, b: integer;

begin
   Readln(K, N);
  for i := 1 to N do
begin
    readln(score0, name0);
    if i = 1 then begin
    rez.name := name0;
    rez.score := score0; end else begin
    for m := K downto 1 do
begin
    if score0 > rez[m].score then
    a := m;
    if name0 = rez[m].name then
    b := m; end;
if b = 0 then begin
for m := K downto a + 1 do
begin
rez[m].name := rez[m - 1].name;
rez[m].score := rez[m - 1].score;
if m = a + 1 then begin
rez[a].name := name0;
rez[a].score := score0; end; end; end;
    if (a = b) and (a <> 0) then begin
    rez[a].score := score0;
    rez[a].name:=name0; end else
    for m := b downto a + 1 do
begin
     rez[m].name := rez[m - 1].name;
     rez[m].score := rez[m - 1].score;
    if m = a + 1 then begin
    rez[a].score := score0;
    rez[a].name := name0; end; end; end; end;
    for i := 1 to K do
begin
    writeln(i, '.', rez.name, '(', rez.score, ')');
    end; end.