Преобразовать последовательность по правилу

[Григорийpnz]

Даны действительные числа a1,…,a20.Преобразовать эту последовательность по правилу: большее из аi и а10+I (i=1…10) принять в качестве нового значения аi, а меньшее- в качестве нового значения a10+i .
Мои пояснения: i,20это значения они пишутся внизу справо под буквой.....

[alex_fcsm]

Как я понял берутся два числа a[i] и a[i+10] и сравниваются, большее идет в a[i], меньшее в a[i+10]

uses crt;
var a:array[1..20] of integer;
     temp,i:integer;
 begin
clrscr;
  randomize;
writeln;
  for i:=1 to 20 do
   begin
    a[i]:=random(100);
    write(a[i], ' ');
    if i=10 then writeln;
   end;
   for i:=1 to 10 do
    if a[i]<a[i+10] then {сравниваем числа}
          begin
            temp:=a[i]; {перепмсываем в переменную}
            a[i]:=a[i+10];{меняем значаения}
            a[i+10]:=temp;{меняем значения}
          end;
writeln;
writeln('--------------------');
  for i:=1 to 20 do
   begin
      write(a[i], ' ');
      if i=10 then writeln;
   end;
 end.