Изменение размера двумерного массива только в сторону увеличения

var
 n:integer; {вершины}
 m:integer; {ребра}
 x,y:integer;
 graf:array of array of integer;
 DOP:=new boolean[x+1];
 Q:=new integer[y+1];
 j,k,count,s,t:integer;
 
procedure path(i:integer);
  begin
   for var u:=1 to n do
    if (graf[Q[i-1],u]=1) AND DOP[u] then
      begin
        if (u=t) then {нашли путь}
          begin
            for var j:=1 to i-1 do
              write(Q[j],' ');
            writeln(t);
            count:=count+1;
          end
        else
          begin
            Q[i]:=u; DOP[u]:=false;
            path(i+1);
            {возврат}
            Q[i]:=0;
            DOP[u]:=true;
          end;
      end;
end;
 
Begin
 x:=1;
 y:=1;
 {SetLength(graf,1);
 SetLength(graf[0],1);}
  Write('Введите количество вершин: '); readln(n);
  Write('Введите количество ребер: '); readln(m);
   for var i:=1 to m do
     begin
      DOP:=new boolean[x+1]; inc(x);
      DOP[i]:=true;
       Q:=new integer[y+1]; inc(y);
       Q[i]:=0;
      Write('Введите вершины ',i,'го ребра: ');
      Readln(j,k);
       if Length(graf[j]) < j then
       SetLength(graf,j+1)
        else begin
         if Length(graf[k])<k then
        for var d:=0 to j do
         SetLength(graf[d],k+1); end;
       graf[j,k]:=1;
    end;
  Write('Начало пути '); readln(s);
  Write('Конец пути '); readln(t);
  count:=0;
  Q[1]:=s; DOP[s]:=false;
  path(2);
  Writeln('Количество путей = ', count);
 readln;
end.