В массиве X поменяйте местами соседние элементы каждой пары и выведите новый массив - Pascal ABC

Формулировка задачи:

В массиве X поменяйте местами соседние элементы каждой пары и выведите новый массив Пишу программу, но результат не получается. В чем ошибка?

program lab5;
var
x:array[1..10] of real;
n,i:byte;
buffer:real;
begin
Writeln('Введите количество элементов');
read(n);
Writeln('Введите массив');
for i:=1 to n do
begin
Read(x[i]);
end;
for i:=1 to n do
begin
buffer:=x[i];
x[i]:=x[i+1];
x[i+1]:=buffer;
end;
i:=i+1;
writeln(x[i-1]:1:1);
writeln(x[i]:1:1);
end.

Решение задачи: «В массиве X поменяйте местами соседние элементы каждой пары и выведите новый массив»

Листинг программы

program lab5;
var x:array[1..10] of real;
    n,i:byte;
    buffer:real;
begin
Write('Введите количество элементов n=');
readln(n);
Writeln('Введите массив');
for i:=1 to n do
Read(x[i]);
i:=1;
while i<n do
 begin
  buffer:=x[i];
  x[i]:=x[i+1];
  x[i+1]:=buffer;
  i:=i+2;
 end;
for i:=1 to n do
write(x[i]:0:2,' ')
end.

Объяснение кода листинга программы

Программа начинается с объявления переменных: n, i и x. Переменная n представляет собой целое число, которое будет использоваться для определения размера массива. Переменная i является байтом (8 бит), она будет использоваться для итерации по массиву. Переменная x представляет собой массив из 10 элементов типа real, то есть каждый элемент массива может быть представлен с плавающей точкой.
Затем программа запрашивает у пользователя ввести количество элементов в массиве, используя функцию Read.
После этого программа считывает сами элементы массива, используя цикл for и функцию Read. Цикл выполняется n раз, где n - это количество элементов, введенных пользователем.
Затем программа использует буфер (переменная buffer) для временного хранения значения элемента массива, который находится на позиции i. Значение элемента массива на позиции i считывается в буфер, затем значение элемента на следующей позиции (i+1) считывается в буфер, и, наконец, значение элемента на позиции i+1 считывается обратно в массив. Это позволяет поменять местами соседние элементы массива без изменения самого массива.
Цикл while повторяется до тех пор, пока i меньше n. Это гарантирует, что все элементы массива будут переставлены.
Наконец, программа выводит новый массив, преобразуя каждый элемент в строку с использованием функции Write и функции Format. Каждый элемент массива выводится через пробел.