Дан массив целых чисел не используя другие массивы переставьте его элементы в обратном порядке.Помогите где ошибка программа не работает

program ms; const  n=10; var x: array[1..n] of integer; i,c: integer; begin writeln('ishodn massiv'); for i:=1 to n do read(x[i]); writeln(); for i:=1 to n div 2 do begin c:= x[i]; x[i]:=x[n+1-i]; x[n+1-i]:=c; end; writeln('obratnyi massiv'); for i:=1 to n do write(x[i],' '); end.