Ориентированный граф называется турниром, если между любой парой его различных вершин существует ровно одно ребро. Для заданного списком ребер графа проверьте, является ли он турниром. Входные данные Сначала вводятся числа n ( 1≤n≤100 ) – количество вершин в графе и m ( 1≤m≤n(n−1) ) – количество ребер. Затем следует m пар чисел – ребра графа. Выходные данные Выведите «YES», если граф является турниром, и «NO» в противном случае. МОЙ КОД: var m, n, i, j, q, x, p, y: integer; no: array [1..1000, 1..1000] of longint; begin read(n, m); for i:= 1 to m do begin readln(x, y); no[x, y]:= no[x, y] + 1; end; for j:= 1 to n do for q:= 1 to n do begin if (j q) then if (no[j, q] = 0) and (no[q, j] = 0) or (no[j, q] > 1) or (no[q, j] > 1) then begin write('NO'); halt end else begin continue end; end; write('YES'); end. Скажите что не так