Определить является ли граф связным

unit MainUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls,GraphUnit;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    StringGrid1: TStringGrid;
    Button1: TButton;
    GraphButton: TButton;
    ButtonCheck: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure GraphButtonClick(Sender: TObject);
    procedure ButtonCheckClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var S:char;
i:Integer;
begin
StringGrid1.ColCount:=StrToInt(Edit1.Text);
StringGrid1.RowCount:=StrToInt(Edit1.Text);
S:='A';
 for i:=1 to StringGrid1.colcount do
 begin
 StringGrid1.cells[I,0]:=S;  
 StringGrid1.cells[0,I]:=S; 
 inc(S);
 end;
 end;
 
 
 
procedure TForm1.GraphButtonClick(Sender: TObject);
var i,j:integer;
    C:Matr;
begin
SetLength(C,StringGrid1.ColCount,StringGrid1.ColCount);
For i:=1 to StringGrid1.ColCount-1 do
For j:=1 to StringGrid1.ColCount-1 do
C[i,j]:=StrToInt(StringGrid1.Cells[i,j]);
end;
 
procedure TForm1.ButtonCheckClick(Sender: TObject);
var b:Mas;
    i:integer;
begin
SetLength(b,StringGrid1.ColCount);
for i:=1 to High(b)-1 do
b[i]:=false;
if Check(1) then
Label1.Caption:='Граф связный'
else
Label1.Caption:='Граф не связный';
end;
 
end.
 
 
unit GraphUnit;
 
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
type
Mas=array of Boolean;
Matr=array of array of integer;
 
var
C:Matr;
B:Mas;
 
function Check(v:integer): boolean;
implementation
 
 
 
function Check(v:integer): boolean;
var i: Integer;
begin
  b[v]:=true;
  for i:=1 to high(C)-1 do
    if (c[v,i]=1) and (b[i]=false) then Check(i);
  for i:=1 to high(b)-1 do
    if b[i]=false then Result:=false else
    Result:=true;
end;
 
end.

  for i:=1 to high(b)-1 do
    if b[i]=false then Result:=false else
    Result:=true;

  Result:=true;
  for i:=1 to high(b)-1 do
  if Not b[i] then 
  Begin
     Result:=false;
     Break;
  End;