Цикличность графа

[krupstor]

Написал программу которая проверяет на цикличнось, ацикличность граф. Свиду она работает. Например если ввести 5 и 5 т.е 5 вершин и 5 ребер и начать их вводить например 1 2,2 3,3,4,4,5,5,1 то все будет нормально и он выведет верный ответ, но если цикл в графе чуть сместит например он будет замыкаться в вершине 2. т.е 1 2,2 3,3,4,4,5,5,2 то выведет ошибку:Слишком много вызовов подпрограмм. Как исправить мою программу так, что бы не было этой ошибки и он опредилял, что граф все таки имеет цикл при таком вводе вершин.
uses crt;
var
a: array [1..100,1..100] of integer;
n,m,x,y,i,j,b: integer;
procedure rec(v: integer);
var
k: integer;
begin
for k:=1 to n do
if a[v,k]=1 then
if k=i then b:=1- предпологаю что тут как то нужно исправть, но всю голову уже сломал и не пойму как.
else rec(k);
end;
begin
writeln('Vvedite vershini i rebra');
readln(n, m);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=0;
for i:=1 to m do
begin
write('Koordinati ',i,' rebra- ');
readln(x,y);
a[x,y]:=1;
end;
b:=2;
for i:=1 to n do
rec(i);
if b=1 then
writeln('Graph imeet cikl')
else
writeln('Graph ne imeet cicla');
readln;
end.

[tema]

Помню давным давно в институте досталась мне именно эта задача.
Алгоритм, который пытаешься реализовать в студию.

[Ask]

if visited[k] then begin b:=1; exit; end else visited[k] := true;

[krupstor]

мм а что такое visited?

[Ask]

Предлагаю тщательно подумать и догадаться.
Если не получится, значит основы алгоритмов изучать ещё рано,
нужно повторить основы ЯП Паскаль.

Кстати, else в начале следующей строки тоже нужно убрать.