Графическое построение графов

type
 Pt=^Zt;
 Zt=record
  Uzl:integer;
  Next:Pt;
 end;
 
var m,n:integer;
    start: array of Pt;
    k:integer;
    Sg:TStringGrid;
 
Procedure Puch(var P:Pt; u: integer); //добавление ребер
var p1:pt;
begin
 new (p1);
 p1^.Uzl:=u;
 p1^.Next:=p;
 p:=P1;
end;
 
function Pop(Var p:Pt): integer; // Проц. удаление вершин из стека
var p1:pt;
begin
  Pop:=p^.Uzl;
  p1:=p;
  p:=p^.Next;
  dispose(p1);
end;
 
function Poptail(var p:Pt): integer; //процедура выталкивание из очереди
begin
  if p^.Next=nil then poptail:=Pop(p)
  else Poptail:=Poptail(p^.Next);
end;
 
Procedure Spiski(); //заполнение
var
r,u,v:integer;
begin
  SetLength(start,n+1);
 for r := 0 to m- 1 do
  start[r]:=nil;
 for r := 0 to m- 1 do
   begin
    u:=strtoint(Sg.Cells[0,r+1]);
    v:= StrToInt(Sg.Cells[1,r+1]);
    Puch(start[u],v);
    Puch(start[v],u);
   end;
end;
 
Procedure SpiskiOut(var Mq:Tmemo); //вывод пути
var P:Pt;
    i:integer;
begin
  for i := 1 to m -1 do
    begin
      p:=start[i];
      Mq.Text:=Mq.Text+inttostr(i)+'-> ';
      while P<> nil do
      begin
        Mq.Text:=Mq.Text+inttostr(p^.Uzl)+'  ';
        P:=p^.Next;
      end;
      Mq.Text:=Mq.Text+#13#10;
    end;
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var u,v,i,j:integer;
begin
 Spiski();
 SpiskiOut(memo1);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 Sg:=StringGrid1;
 Sg.RowCount:=strtoint(Edit1.Text)+1;
 n:= strtoint(Edit2.Text);
 m:=strtoint(Edit1.Text);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
memo1.Clear;
Image1.Picture:=nil;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Sg:=StringGrid1;
  Sg.ColCount:=2;
  Sg.FixedCols:=0;
  Sg.FixedRows:=1;
  Sg.RowCount:=2;
  Sg.Cells[0,0]:='Nachalo';
  Sg.Cells[1,0]:='Konec';
end;
 
end.