Топологическая сортировка.

[amsask]

Дан орграф. Выполнить топологическую сортировку поиском в глубину.
Если задача не имеет решения, вывести сообщение "-1".

Сортировку я написал

var
  M: Array[1..100, 1..100] of Byte; // матрица смежности
  status: Array[1..100] of Byte;
  S: Array[1..100] of Integer;
  N, top: Integer;

// поиск в глубину
procedure DFS(const u: Integer);
var
  v: Integer;
begin
  status[u] := 1;
  for v := 1 to N do
    if (M[u][v] <> 0) and (status[v] = 0) then
      DFS(v);
  Inc(top);
  S[top] := u;
end;

procedure Topological_Sort;
var
  u, v, i, j: Integer;
begin
  top := 0;
  for u := 1 to N do
    status[u] := 0;
  for u := 1 to N do
    if status[u] = 0 then
      DFS(u);
end;

В массиве S записан результат сортировки.

Работает программа правильно.

Вопрос в том, куда нужно что дописать, чтобы определить имеет ли задача решение, или не имеет.