Граф. Недостижимые вершины из данной.

uses crt;
type matr=array[1..100,1..100] of integer;
var s,incin:matr;
i,j,n,m,k,i1,j1:integer;
 
procedure matr_smezh;
begin
randomize;
for i:=1 to n do
begin
     for j:=1 to n do
     begin
     s[i,j]:=random(2);
     incin[i,j]:=-1+random(2);
     end;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
s[i,i]:=0;
s[j,i]:=s[i,j];
end;
end;
end;
 
procedure matr_inc;
begin
randomize;
for i:=1 to n do
begin
     for j:=1 to n do
     begin
     incin[i,j]:=-1+random(2);
     end;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
incin[i,i]:=0;
incin[j,i]:=incin[i,j];
end;
end;
end;
 
procedure vuvod(s:matr);
begin
for i:=1 to n do
begin
     for j:=1 to n do
     begin
     write(s[i,j],'   ');
     end;
writeln;
end;
end;
 
procedure poisk;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
 
end;
end;
end;
 
begin
clrscr;
writeln ('Введите количество вершин графа');
readln(n);
writeln('Введите номер вершины');
readln(m);
matr_smezh;
matr_inc;
writeln('матрица смежности');
vuvod(s);
writeln('матрица инцидентности');
vuvod(incin);
//poisk;
 readln;
end.

uses crt;
type matr=array[1..100,1..100] of integer;
type matr1=array[1..100] of boolean;
type matr2=array[1..100] of integer;
var s:matr;
mf:matr1;
Q:matr2;
n,m:integer;
 
procedure matr_smezh;
var i, j:integer;
begin
randomize;
for i:=1 to n do
begin
     for j:=i+1 to n do
     begin
     s[i,j]:=random(2);
     s[j,i]:=s[i,j];
     end;
end;
end;
 
procedure vuvod(s:matr);
var i, j:integer;
begin
for i:=1 to n do
begin
     for j:=1 to n do
     begin
     write(s[i,j],'   ');
     end;
writeln;
end;
end;
 
procedure poisk;
var i_st, i_end, i: integer;
fl:boolean;
begin
mf[m]:=true;
Q[1]:=m; i_st:=1; i_end:=2;
while i_st<i_end do
begin
  for i:=1 to n do
  if (s[Q[i_st],i]=1) and (mf[i]=false) then
  begin
    Q[i_end]:=i;
    mf[i]:=true;
    inc(i_end);
  end;
  inc(i_st);  
end;
fl:=true;
writeln('недостижимые вершины');
for i:=1 to n do
  if mf[i]=false then
  begin
  write(i, ' ');
  fl:=false;
  end;
if fl=true then
writeln('таких нет');
end;
 
begin
clrscr;
writeln ('Введите количество вершин графа');
readln(n);
writeln('Введите номер вершины');
readln(m);
matr_smezh;
writeln('матрица смежности');
vuvod(s);
poisk;
readln;
end.