Вывести список фамилий участников в порядке убывания набранных ими очков - QBasic (27353)

CLS 
 
TYPE ChessTable 'Создем тип для таблицы: 
Uchastnik AS STRING * 10 'Фамилия участника 
Ochki AS SINGLE 'Число очков 
Pobed AS SINGLE 'Число побед 
END TYPE 
 
INPUT "Vvedite chislo uchastnikov: ", n 'Ввод числа участников 
 
DIM Table(n) AS ChessTable 'Наша таблица 
 
FOR i = 1 TO n 
INPUT "Vvedite familiyu uchastnika: ", Table(i).Uchastnik 'Ввод фамилий участников 
NEXT i 
 
'Цикл для ввода набранных очков 
FOR i = 1 TO n - 1 'i - первый участник в партии, 
FOR j = i + 1 TO n 'j - второй 
 
flag = 0 'Обнуляем флаг 
 
DO 
IF flag = 1 THEN COLOR 4: PRINT "Nevernij vvod": COLOR 7 'Если цикл повторяется не в перый раз, сообщаем о неверном вводе 
 
PRINT "Skolko ochkov nabral uchastnik "; RTRIM$(Table(i).Uchastnik); " v partii s uchastnikom "; RTRIM$(Table(j).Uchastnik); 
INPUT Ochki 'Собственно, ввод числа очков 
 
flag = 1 
 
LOOP UNTIL Ochki = 0 OR Ochki = .5 OR Ochki = 1 'Проверка валидности введенных очков 
 
Table(i).Ochki = Table(i).Ochki + Ochki 'Присуждаем первому участнику его очки 
Table(j).Ochki = Table(j).Ochki + (1 - Ochki) 'А второму - разность между единицей и очками первого 
 
IF Ochki = 1 THEN Table(i).Pobed = Table(i).Pobed + 1 'Если у первого 1 очко, присуждаем ему победу 
IF Ochki = 0 THEN Table(j).Pobed = Table(j).Pobed + 1 'А если 0 - значит победил второй, и победу присуждаем ему 
 
NEXT j 
NEXT i 
 
'Цикл для упорядочения участников по очкам 
FOR i = 1 TO n - 1 
 
max = 0: jmax = 0 'Обнуляем максимальное число очков 
 
FOR j = i TO n 'Начиная с i-ого участника ищем участника с максимальным числом очков 
 
IF Table(j).Ochki > max THEN max = Table(j).Ochki: jmax = j 
 
IF Table(j).Ochki = max AND Table(j).Pobed > Table(jmax).Pobed THEN jmax = j 'Если у участников равное число очков, присуждаем 
'преимущество тому, у кого больше побед 
NEXT j 
 
SWAP Table(i), Table(jmax) 'Меняем i-ого участника с тем, у кого максимальное число очков 
 
NEXT i 'Увеличиваем i на единицу и повторяем цикл, пока не дойдем до последнего участника 
 
'Вывод упорядоченной таблицы на экран 
CLS 
PRINT "Mesto", "Uchastnik", "Ochki", "Chislo pobed" 
FOR i = 1 TO n 
 
IF i <= 3 THEN COLOR 2 ELSE COLOR 7 'Первую тройку выделим зеленым цветом 
 
PRINT i, Table(i).Uchastnik, Table(i).Ochki, Table(i).Pobed 
 
NEXT i
 
PRINT
PRINT "Press any key to continue..."
DO
LOOP WHILE INKEY$ = ""