40% угля России добывается на месторождениях

A:array[1..10] of integer;
i:integer
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(9)+1;
end;
for u:=1 to 10 do begin
write(a[u])
a[u]:=b[u]
end;
a[1]:=b[2];
a[2]:=b[1];
a[3]:=b[4];
a[4]:=b[3];
a[5]:=b[6];
a[6]:=b[5];
a[7]:=b[8];
a[8]:=b[7];
a[9]:=b[10];
a[10]:=b[9];
write(a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],a[10]);
end.

как вариант:)