Ну по сути нужно выписать в порядке возрастания, либо в порядке убывания, соответственно они должны быть пронумерованы, задание вы дали не полностью, так что придется догадываться...
1 чемпионы & плавание 2 чемпионы | (бег & плавание) 3 чемпионы | бег | плавание 4 чемпионы & Европа & бег & плавание
если в порядке возрастания, то в ответ пишите так...
4123
если в порядке убывания, то в ответ пишите так...
3214
не особо уверен что нужно сделать именно это, т.к задание вы полностью не предоставили, но если задание такое, то должно быть правильно
const
max = 20;
var
c:array[1..max]of integer;
x:integer;
i, k:byte;
BEGIN
writeln('Заменить k-й элемент одномерного массива на 0, если этот элемент четный и на 1 если он нечетный');
writeln(' ');
writeln('Начальный Массив' );
randomize;
for i:=1 to max do begin
c[i]:=random(-64,64);
write(c[i], ' ');
end;
writeln(' ');
writeln(' ');
write('Введите k='); readln(k);
writeln(' ');
if odd(k) then
c[k]:=1
else
c[k]:=0;
writeln(' ');
writeln('Измененный массив' );
for i:=1 to max do
write(c[i], ' ');
END.