Задание орграфа посредством матрицы смежности — Pascal(Паскаль)

Program Pro_52 (Input, Output);
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 ('PASCAL: Задание орграфа посредством матрицы смежности.'); 
Write ('Введите число вершин графа: '); 
ReadLn (N); 
Write ('Введите число ребер графа: ');
ReadLn (M);
 
WriteLn ('Введите номера вершин, соответствующих ребрам орграфа:'); 
For i := 1 To M Do 
Begin
Write ( i, '-е ребро: ');
ReadLn (i, j);
C [i, j] := 1; 
End;
 
WriteLn ('Ввод закончен. Матрица смежности имеет вид:');
For i := 1 To N Do
Begin
For j := 1 To N Do
Write (C [i, j] : 3);
WriteLn;
End;
 
ReadLn;
End.