PASCAL ABC.NET создать одномерный массив А из 10 целых чисел

[C_i_K_a_D_a]

Почему - то не выходит господа помогите пжлста! Я новичок...

1) создать одномерный массив А из 10 целых чисел
2)вывести массив на экран в виде строки чисел
3) поменять местами элементы массива след. образом 1й со 2 ;3 с 4 ; 5 с 6; 7 с 8; 9 с 10ым;
4)вывести измененный массив на экран

у меня не выходит(

Program massiv;
const
    N = 10;
type
    mas = array [1..N] of integer;
var 
   a:mas;
   i,c:integer;
begin
    a[1] :=2;
    a[2] :=5;
    a[3] :=0;
    a[4] :=54;
    a[5] :=234;
    a[6] :=90;
    a[7] :=1;
    a[8] :=2;
    a[9] :=4;
    a[10] :=3;
    
    i := 1; 
    repeat 
         begin
             c := a[i];
             a[i] := a[i + 1];
             a[i + 1] := c;
             writeln(i,') Массив = ',a[i + 1]);
             writeln(i+1,') Массив = ',a[i]);
             i := i + 2;
         end;
    until i > 10;     
end.

[Aleksandr H.]

Program massiv;
const
    N = 10;
type
    mas = array [1..N] of integer;
var 
   a:mas;
   i,c:integer;
begin
    a[1] :=2;
    a[2] :=5;
    a[3] :=0;
    a[4] :=54;
    a[5] :=234;
    a[6] :=90;
    a[7] :=1;
    a[8] :=2;
    a[9] :=4;
    a[10] :=3;
    
    i := 1; 
    repeat 
         begin
             c := a[i];
             a[i] := a[i + 1];
             a[i + 1] := c;
             writeln(i,') Массив = ',a[i]);
             writeln(i+1,') Массив = ',a[i+1]);
             i := i + 2;
         end;
    until i > 10;     
end.

[C_i_K_a_D_a]

Блин вот же ... Спасибо тебе! А я голову ломал...))

[Plague]

begin
  var a:=Arr(2,5,0,54,234,90,1,2,4,3);
  a.Println;
  for var i:=0 to 4 do swap(a[2*i],a[2*i+1]); 
  a.Println;
end.