Поменять местами два элемента массива, равноудалённых от элемента с заданным номером

uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
procedure obmen(var a:mas;n:byte);
var i,k,d:byte;
    x:real;
begin
repeat
write('Введите индекс элемента от 2 до ',n-1,' k=');
readln(k);
until k in [2..n-1];
if k-1<=n-k then d:=k-1 else d:=n-k;
for i:=1 to d do
 begin
  x:=a[k-i];
  a[k-i]:=a[k+i];
  a[k+i]:=x;
 end;
end;
function sred(a,b:real):real;
begin
sred:=(a+b)/2;
end;
var a:mas;
    n,i,k:byte;
    x:real;
    f:text;
begin
clrscr;
randomize;
repeat
write('Размер массива от 4 до ',nmax,' n=');
readln(n);
until n in [4..nmax];
for i:=1 to n do
a[i]:=10*random;
for i:=1 to n-1 do
for k:=i+1 to n do
if a[i]<a[k] then
 begin
  x:=a[i];
  a[i]:=a[k];
  a[k]:=x;
 end;
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:5:1);
writeln;
obmen(a,n);
writeln('Массив после перестановеи');
for i:=1 to n do
write(a[i]:5:1);
writeln;
writeln('Среднее арифметическое крайних элементов=',sred(a[1],a[n]):0:2);
assign(f,'1.txt');
rewrite(f);
write(f,a[1]:0:1,a[n]:6:1);
close(f);
write('Крайние элементы записаны в файл 1.txt');
readln
end.