Даны две последовательности: C1,C2,…,C10 и P1, P2,…,P10. Если наибольший элемент первой последовательности меньше наименьшего элемента второй, задать элементам X1, X2,…, X10 новой последовательности значения C1, C2,…, C10, а элементам X11, X12,…, X20 – значения P1, P2,…, P10. в противном случае вывести необходимое сообщение — Pascal(Паскаль)

  type arr= Array[1..10] of integer;
  type massiv=array[1..20] of integer;
   const
    c:arr= ( c1,...,c10 );
    p:arr=(p1,..,p10);
var x:massiv;
 i,j,max,min:integer;
begin
max:=c[1];
for i:=1 to 10 do
if max<c[i] then
max:=c[i];
min:=p[1];
fori:=1 to 10 do
if min>p[i] then
min:=p[i];
j:=0;
if max<min then
for i:=1 to 20 do
begin
inc(j);
if j>10 then
x[i]:=p[i] ;
else
x[i]:=c[i];
end
else
begin
for i:=1 to 20 do
begin
inc(j);
if j>10 then
x[i]:=c[i]; 
else
x[i]:=p[i];
end;
end;
for i:=1 to 20 do 
write(x[i],'  ');
end.