РЕБЯТА С ИНФОРМАТИКОЙ ВОТ ВОПРОС ( Сравни природу пустынь и полюсов

Ну по сути нужно выписать в порядке возрастания, либо в порядке убывания, соответственно они должны быть пронумерованы, задание вы дали не полностью, так что придется догадываться...

1 чемпионы & плавание
2 чемпионы | (бег & плавание)
3 чемпионы | бег | плавание
4 чемпионы & Европа & бег & плавание

если в порядке возрастания, то в ответ пишите так...
   
4123

если в порядке убывания, то в ответ пишите так...

3214

не особо уверен что нужно сделать именно это, т.к задание вы полностью не предоставили, но если задание такое, то должно быть правильно

PROGRAM A24;
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.