for i:=0 to 13 do begin 
        for n:=1 to 10 do write (a[n],' '); writeln;
        for n:=1 to 10 do a[n]:=1;
  for j:=i-3 to i do 
   if (j>0) and (j<11) then a[j]:=b[4-i+j];
end;