Ориентированный граф называется турниром, если между любой парой его различных вершин существует ровно одно ребро. Для заданного списком ребер графа проверьте, является ли он турниром. Входные данные
Сначала вводятся числа 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.

Скажите что не так

FUNNIAO    2   15.05.2021 12:55    9