Одномерные массивы. Паскаль

[VikkyVi]

Здравствуйте) помогите пожалуйста)

Дан массив х целых чисел. Вывести в порядке возрастания все числа, стоящие на четных местах.

Не пойму почему программа зацикливается и не идет дальше. И вообще, может косяков много, помогите)

program labba;
uses crt;
const
n=20 ;
var a: array[1..20] of integer;
i,j,t: integer;

begin

   for i:=1 to 20 do
    readln(a[i]);
     i:=2;
      while i<= n do
       j:=i+2;
        while j<= n-2 do
         if a[i]>a[j] then
    begin
           t:=a[i];
           a[i]:=a[j];
           a[j]:=t;
    end;
  j:=j+2;
  i:=i+2;
  for  i:= 1 to n do
  write (a[i]);
  readln;
  end.

[Serge_Bliznykov]

может быть, такой код Вам поможет?

program labba;
uses crt;
const n=20;
var 
  a: array[1..n] of integer;
  i,j,t: integer;

begin
 for i:=1 to n do readln(a[i]);

 {сортировка элементов на чётных позициях}
 for i:=1 to n-1 do
  for j:=i+1 to n do
    if ((i mod 2)=0) and ((j mod 2)=0) then begin
         if a[i]>a[j] then  begin
           t:=a[i];
           a[i]:=a[j];
           a[j]:=t;
         end;


  for  i:= 1 to n do write (a[i], ' ');
  readln;

end.

Код не проверял, писал тут, на форуме.
Но, думаю, что идея Вам понятна?

p.s. строго говоря, в исходном задании ничего не сказано про сортировку.
Допускаю, что задача подразумевает решение без сортировки исходного массива.