Заполнить массив узором

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.

uses crt;
procedure ris(x,y:integer);
var i,j:integer;
begin
gotoXY(x,y);write  ('        ');
gotoXY(x,y+1);write('x xxxxxx');
gotoXY(x,y+2);write('x x     ');
gotoXY(x,y+3);write('x x xxx ');
gotoXY(x,y+4);write('x x x x ');
gotoXY(x,y+5);write('x xxx x ');
gotoXY(x,y+6);write('x     x ');
gotoXY(x,y+7);write('xxxxxxx ');
end;
var i,j:integer;
begin
i:=1;
while i<18 do
 begin
  j:=1;
  while j<74 do
   begin
    ris(j,i);
    j:=j+8;
   end;
  i:=i+8;
 end;
end.