Нарисовать граф

uses GraphABC;
 
CONST MAX_N = 100;
var 
  
   //x, y, r : real;
   a : array[1..MAX_N , 1..MAX_N] of integer;
   n , m , i , j , x , y,r : integer;
  
 
 
procedure DrawGraph(n : integer);
var
  i : integer;
  s : string;
{--------цикл, рисующий окружность----------------}
begin
  for i:=1 to n do 
    begin
     circle(x+cos(2*Pi*i/n)*r, y+sin(2*Pi*i/n)*r, 5); //нарисовать вершины
     str(i, s); //переменная, содержащая номер вершины в строковом виде
     TextOut(x, y, s); //на каждой вершине написать ее номер (как вместо x и y подставить координаты текущей вершины?)
    end;
{--------цикл, рисующий ребра----------------}
  for i:=1 to n do
    begin
      //если из вершины с координатами x1,y1 есть путь до вершины с координатами x2, y2 - рисуем ребро 
      //как осуществить проверку такого условия?
      
      line(x1,y1,x2,y2);
      for i:=1 to n do //i - вершины, от каждой вершины рисуем n-1 ребро
        for j:=1 to n-1 do //j - ребра, ребер на 1 меньше, чем вершин, потому что пути из самого себя нет
          begin
            //как организовать цикл, рисующий от вершины ребра?
          end;
    
    end;
end;
{--------заполняем матрицу смежности -------------------------}
procedure MatFull (n : integer; a : array of integer);
var
  i, j : integer;
 
Begin
    Read(n); //количество вершин
    
    for i := 1 to n do begin
        read(x , y); //считываем вершину
        a[x][y] := 1; //метим путь из x в y
        a[y][x] := 1; //граф неориентированный, метим обратный путь
    end;
    
End;
  
{--------выводим матрицу на экран-----------}
procedure DispMat (n : integer; a : array of integer);
var
  i, j :integer;
  begin
  for i := 1 to n do begin //выписываем матрицу смежности
        for j := 1 to n do
            Write(a[i][j] , ' ');
        WriteLn;    
    end;    
  
  end;
BEGIN  
  writeln ('Введите количество городов:');
  readln (n); // количество вершин
  
  MatFull(n, a); //формируем матрицу смежности
  DispMat (n, a); //выводим матрицу на экран
     
END.