Задача по теории графов

[mistrelikver]

Уважаемые форумчане! Есть небольшое затруднение по поводу решения задачи:
Граф задаётся случайно, определить по матрице инцидентности является ли он полным или полным симметрическим.
По сути получается, что нам нужно посчитать степень вершины... Но матрица которая генерируется в данном варианте исполнения может содержать повторяющиеся столбцы.
Если не сложно подскажите как можно это исправить.

var
  i,j,c: integer;
  a: array [1..5, 1..4] of integer; {матрица 5 строк(вершин), 4 столбца(ребра)}
  begin
{заполняем матрицу случайными ребрами, у каждого ребра начало (1) и конец (-1)}
  for j:=low(a[1]) to high(a[1]) do    { перебираем все ребра }
  begin
   a[1+random(high(a))][j] := 1;   { ребро начинается на одной из вершин }
        repeat
         c:=1+random(high(a))    { выбираем вершину в которую приходит ребро }
        until a[c][j]=0;        { проверка чтобы не создавать кольцевых связей }
        a[c][j]:=-1;            { ребро входит в выбранную вершину }
    end;
 
{вывобдим матрицу на экран}
    for i:=low(a) to high(a) do        { перебираем все строки (вершины) }
    begin
      for j:=low(a[i]) to high(a[i]) do { перебираем все ребра }
         write(a[i][j]:2, ' ');    { выводим инцидентность текущей вершины и текущего ребра }
        writeln;            { переходим на следующую строку экрана }
    end;
begin
        readln;
end;
 
{считаем степень вершины (количество некольцевых ребер) }
    for i:=low(a) to high(a) do        { для каждой строки (вершины) матрицы}
    begin
      c:=0;                { сбрасываем счетчик степени вершины }
      for j:=low(a[i]) to high(a[i]) do { перебираем все вершины }
       if a[i][j]<>0 then    { если вершина и ребро инцидентны }
          inc(c);        { увеличиваем счетчик степени вершины }
        writeln('d(a[',i,']) = ', c);    { выводим степень текущей вершины }
    end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[MihalNik]

Сделано за оплату, если что: mihal-nik[D O G]mail.ru