Нахождение истоков и стоков ориентированного графа

type TUk1=^TEl1; //элемент списка вершин
     TEl1=record
            Next:TUk1;
            Inf:integer;
          end;
     TUk=^TEl;
     TEl=record //элемент списка смежности
           Left:TUk1;
           Inf:integer;
           Down:TUk;
         end;
 
но есть процедура реализующая построение матрицы смежности, поэтому можно и через список и через матрицу реализовать.
 
 
{-----находим источники орграфа----}
procedure FindIstok;
var
f:boolean;
i,k:integer;
Istochnik:array of byte;
p,p1:TUk;
p2:TUk1;
begin
setlength(Istochnik,max);
for i:=0 to max-1 do Istochnik[i]:=0;
if (Head=Nil) then WriteLn('V grafe net ni odnoj vershini!!!')
else begin //если граф не пуст
k:=0;
p:=Head; //пробегаем по списку вершин
while (p<>Nil) do
begin
if (p^.Left<>Nil) then
begin //если список смежных с текущей пуст
f:=true; //то предпологаем что это источник
p1:=Head; //пробегаем снова по списку вершин
while (p1<>Nil) do
begin
p2:=p1^.Left; //указатель на первую вершину в списке смежных
while ((f)and(p2<>Nil)) do //проходим по списку смежных с текущей
begin
if p2^.Inf=p^.Inf then
f:=false; //если она равна вершине, у которой список смежных пуст(мы ее нашли на предыдущем шаге), то это не источник
p2:=p2^.Next; //переход на следующий элемент в списке смежных вершин
end;
p1:=p1^.Down; //переход на следующий элемент в списке вершин
end;
if (f=true) then //если найденная вершина все-таки источник
begin //то записываем ее в массив источников
inc(k);
// setlength(Istochnik, k);
Istochnik[k-1]:=p^.Inf;
end;
end;
p:=p^.Down;
end;
 
end;
if k=0 then writeln('Istochnikov v grafe net! ')
else for i:=0 to k-1 do Write(Istochnik[i]:2);
end;