Программа инвертирования компонентов вектора не работает - Turbo Pascal

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

const n=20;
 var V: array[1..n] of real;
 begin
 for i:= 1 to n do
   begin
    write('dati x[',x,']=');
     readln(x[i]);
     end;
      for i:=1 to n do
  writeln(x[i]); 
   for i:=1 to n do div 2 do 
       begin
         aux:=x[i];
          x[i]:=x [n+1-i];
           x[n+1-i]:=aux;
        end;       
      readln;
      end.

Пишет Встречно 'div', а ожидался оператор (11 строка) Кто может помочь буду благодарен. P.S Что я должен был сделать линейный массив V[1..], n<=20 нужно создать рекурсивную процедуру которая будет инвертирвать компоненты вектора.

Решение задачи: «Программа инвертирования компонентов вектора не работает»

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

uses
  SysUtils;
const n=20;
 var
 aux: Real;
 i:Integer;
 x: array[1..n] of real;
 begin
 for i:= 1 to n do
   begin
    write('dati x[',i,']=');
     readln(x[i]);
     end;
      for i:=1 to n do
  write(x[i]:3:1);
  writeln;
   for i:=1 to 10 do // Здесь вместо 10 можно записать любую переменную, равную n/2 
       begin
         aux:=x[i];
          x[i]:=x [n+1-i];
           x[n+1-i]:=aux;
        end;
   for i:=1 to n do
  write(' ', x[i]:3:0);
      readln;
      end.

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

Подключается библиотека SysUtils.
Объявляются переменные: n, aux, i, x.
Создается массив x, вмещающий 20 элементов типа real.
Запускается цикл for, который идет от 1 до n (количество элементов в массиве x).
Внутри цикла выводится запрос на ввод данных для элемента x[i].
После ввода данных выводится их преобразованный вид (в виде строки).
Затем идет еще один цикл for, который идет от 1 до 10 (можно заменить на любое другое число, равное n/2).
Внутри этого цикла происходит обмен элементов массива x[i] и x[n+1-i], а также копирование элемента x[i] в переменную aux.
После окончания второго цикла выводится преобразованный вид элементов массива x.
Программа завершается, ожидая ввода пользователя.