Создать цикл, который продолжит изображение

program nafi;
uses graphABC,crt;
var a,x,y,n:integer;
procedure der;
begin
line(10,10,10,100);
line(10,10,100,10);
line(100,10,100,70);
line(100,70,70,70);
line(70,70,70,40);
line(70,40,50,40);
line(50,40,50,100);
line(50,100,130,100);
end;
begin
der;
end.

program nafi;
uses graphABC;
procedure der(x,y:integer);
begin
line(x,y,x,y+90);
line(x,y,x+90,y);
line(x+90,y,x+90,y+60);
line(x+90,y+60,x+60,y+60);
line(x+60,y+60,x+60,y+30);
line(x+60,y+30,x+40,y+30);
line(x+40,y+30,x+40,y+90);
line(x+40,y+90,x+120,y+90);
end;
var x,y:integer;
begin
x:=1;
y:=10;
while x<=windowwidth do
 begin
  der(x,y);
  x:=x+120;
 end
end.

program variant;
uses crt;
var i,j,m,n:integer;
    a:array[1..100,1..100] of char;
begin
writeln('Ââåäèòå n è m');
readln(n,m);
   for i:=n downto n-6 do
     begin
       for j:=1 to m do
        begin
          A[i,j]:='x';
          j:=j+7;
        end;
 
     for J:=3 to m do
      begin
       if i=n-1 then A[i,j]:='_' else A[i,j]:='x';
       j:=j+7;
      end;
 
      for j:=5 to m do
       begin
       if (i=n-1) or (i=n-5) then a[i,j]:='_' else a[i,j]:='x';
       j:=j+7;
       end;
 
      for j:=7 to m do
      begin
        if i=n-5 then A[i,j]:='_' else A[i,j]:='x';
        j:=j+7;
      end;
   end;
 
      for j:=2 to m do
       begin
       if j mod 8=0 then A[n,j]:='_' else a[n,j]:='x';
       j:=j+1;
       end;
       
      for j:=4 to m do
      begin
       A[n-2,j]:='x';
       j:=j+7;
      end;
      
      for j:=6 to m do
      begin
      a[n-4,j]:='x';
      j:=j+7;
      end;
      
      for j:=4 to m do
      begin
      if (j mod 8=0) and (j<>8) then a[n-6,j]:='_' else a[n-6,j]:='x';
 
      j:=j+1;
      end;
 
      for i:=1 to n do
        for j:=1 to m do
            if A[i,j]<>'x' then a[i,j]:='_';
      //----------------------
      for i:=1 to n do
      begin
        for j:=1 to m do
          write(A[i,j], ' ');
        writeln;
      end;
end.