var ar:array[1..10] of integer;
a,i,b,n,j:integer;

procedure swap(var x,y:integer);
var t:integer;
begin
t:=x;
x:=y;
y:=t;
end;

begin;
randomize;
readln(a);
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
writeln(ar[i]);
if ar[i]=a then b:=i;
end;
if b<>0 then
begin;
for j:=1 to b-1 do             //пузырёк, возрастание
for i:=1 to b-j do
if ar[i] > ar[i+1] then
swap(ar[i],ar[i+1]);
end
else
begin;
for i:=2 to 5 do              //вставка, убывание
begin
n:=ar[i];
j:=i-1;
while (j>=1) and (ar[j]<n) do
begin
ar[j+1]:=ar[j];
j:=j-1;
end;
ar[j+1]:=n;
end;
end;
writeln('Final array');
for i:=1 to 10 do
writeln(ar[i]);
end.