Найти пути графа

program my;
const n= 100; m= 100;
var
i, j,k,e: integer;
iVer, iDug, iNachVer, iEndVer, iSpr,iVidG: integer;
A: array [1..n, 1..m] of integer;
B: array [1..n, 1..m] of integer;
boo: boolean;
 
begin
boo:=true;
i:=0; j:=0; iVer:=0; iDug:=0; iNachVer:=0; iEndVer:=0;
writeln('Введите число вершин'); readln(iVer);
writeln('Введите число дуг'); readln(iDug);
if (iVer>0)and (iDug>0)and (2*iVer >=iDug) and (iVer <= iDug) then
begin
writeln('Если граф ориентированный введите 1,в противном случае - 0'); readln(iVidG);
        for i:=1 to iDug do
        begin
          for j:=1 to iVer do
            begin
            write(' Элемент ', i,' строки, ',j,' столбца = ');
            readln(A[i, j]);
            end;
        end;
 
        writeln(' Получившаяся матрица инцидентности: ');
 
        for i:=1 to iDug do
        begin
        for j:=1 to iVer do
          begin
          write(A[i, j]:5);
          end;
          writeln
        end;
 
writeln('Введите номер начальной вершины'); readln(iNachVer);
writeln('Введите номер конечной вершины'); readln(iEndVer);
j:=iNachVer;
if iVidG = 0 then
begin
write(iNachVer,'=>');
WHILE BOO do
begin
 
        for i:=1 to iDug do
      begin
      iSpr:= iSpr+ A[i,j];
      end;
if (iSpr = 0) and (A[iEndVer,iEndVer]= 0) then BOO:=false else iSpr:=0;
 
     for i:=1 to iVer do
       begin
        if (A[i,iNachVer]= 1) then
          begin
          A[i,iNachVer]:= 0;
          iNachVer:=i;
          write(iNachVer,'=>');
          break
          end;
      end;
     A[iEndVer,iEndVer]:=1;
     for i:=1 to iDug do
      if (A[iNachVer,i]= 1) then
      begin
        A[iNachVer,i]:= 0;
          if iNachVer= iEndVer then
            begin
            iNachVer:=j;
             writeln(' ');
            end
          else  iNachVer:=i;
          break;
      end;
 
end;
end
else
 
begin
WHILE BOO do
begin
 
        for i:=1 to iDug do
      begin
      iSpr:= iSpr+ abs(A[i,j]);
      end;
if (iSpr = 0) and (A[iEndVer,iEndVer]= 0) then BOO:=false else iSpr:=0;
 
     for i:=1 to iVer do
     begin
        if (A[i,iNachVer]= 1) then
          begin
          A[i,iNachVer]:= 0;
          iNachVer:=i;
          write(iNachVer,'=>');
          break
          end;
     end;
     A[iEndVer,iEndVer]:=1;
     for i:=1 to iDug do
      if (A[iNachVer,i]= -1) then
      begin
        A[iNachVer,i]:= 0;
          if iNachVer= iEndVer then
            begin
            iNachVer:=j;
             writeln(' ');
            end
          else  iNachVer:=i;
          break;
      end;
 
end
end;
end
 
ELSE writeln ('VOT TOLKO NE NADO A?');
end.