kitkit

for n:=1 to 10 do a[n]:=1;
for i:=0 to 13 do begin
for j:=i-3 to i do begin
if (j>0) and (j<11) then a[i]:=b[4-i+j];
end;
for n:=1 to 10 do begin write(' ', a[n]); end; readln;
for n:=1 to 10 do a[n]:=1;
end;
..я, наверн, совсем не понял, да?