program massiv;
uses crt;
var A:array[1..6] of real;
B:array[1..6] of real;
i,j,k:integer;
begin
clrscr;
writeln('A[6]');
for i:=1 to 6 do
read(A[i]);
writeln;
for i:=1 to 6 do
{read(B[i]);} {Элементы массива В по условию задачи определяются формулой, их не нужно вводить с клавиатуры}
B[i]:=cos(i);
for i:=1 to 6 do
begin
for j:=1 to 7*(-1)*i+1 do {Страшный вид у конечного значения параметра}
if A>A-1 {Над массивом определена только одна операция - присваивания, все остальные действия вы должны выполнять над элементами массива}
then K:=A
A:=A-1
A-1:=R
write(A[i],' ');
end;
for j=7*(-1)i+1
if B<B-1
then K:=B
B:=B-1
B-1:=R

Не совсем корректное условие задачи: каким образом должны меняться местами элементы массива А? Будем считать, что нужно переставить местами соседние элементы. Тогда:
for i:=1 to 3 do
begin
A1[2*i-1]:=A[2*i];
A1[2*i]:=A[2*i-1]
end;
Если не имеет значения метод сортировки, то отсортируем массив В методом простой вставки.
b1[1]:=b[1];
for i:=2 to 6 do
begin
j:=i-1;
while (b[i]<b1[j]) and (j>0) do
begin
b1[j+1]:=b1[j];
j:=j-1;
end;
b1[j+1]:=b[i]
end;
Распечатаем результат:
writeln('Массив А1:');
for i:=1 to 6 do
write(A1[i]);
writeln('Массив B1:');
for i:=1 to 6 do
write(B1[i]);