Ориентированный граф называется турниром, если между любой парой его различных вершин существует ровно одно ребро. Для заданного списком ребер графа проверьте, является ли он турниром. Входные данныеСначала вводятся числа 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;beginread(n, m);for i:= 1 to m dobeginreadln(x, y);no[x, y]:= no[x, y] + 1;end;for j:= 1 to n dofor q:= 1 to n dobeginif (j q) thenif (no[j, q] = 0) and (no[q, j] = 0) or (no[j, q] > 1) or (no[q, j] > 1) thenbeginwrite('NO');haltendelsebegincontinueend;end;write('YES');end. Скажите что не так? Плиз