Представление графов в виде матриц.

[vovanrbn]

Скажите пожалуйста почему программа неправильно работает.
Гласит так : "Определите степень каждой вершины (количество рёбер, инцидентных данной вершине) в графе, заданном матрицей инцидентности."

вот код :






Program lab;
Var C : Array [1..20, 1..20] Of Integer;
N, M : Integer;
i, j : Integer;
Begin
For i := 1 To 20 Do
For j := 1 To 20 Do
C [i, j] := 0;
WriteLn ('Zadanie grafa po sr-vam matr. smegnosti');
Write ('4islo vershin grafa:');
ReadLn (N);
Write ('4islo reber grafa:');
ReadLn (M);
WriteLn ('Nomera vershin sootv rebram grafa:');
For i := 1 To M Do
Begin
Write ( i, '-e rebro: ');
ReadLn (i, j);
C [i, j] := 1;
End;
WriteLn ('Matrix');
For i := 1 To N Do
Begin
For j := 1 To N Do
Write (C [i, j] : 3);
WriteLn;
End;
ReadLn;
End.