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

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.