Изменить программу

[Maxim888]

Есть программа:

program ex1;
const n=10;
var m,p: integer; s:array[1..10] of real; k: real;
begin
writeln('Введите последовательно через пробел ',n,' элементов массива');
for m:=1 to n do
read(s[m]);
p:=n div 2;
writeln(p);
for m:=1 to p do
begin
k:=s[1]; a[1]:=a[10]; a[10]:=k;
end;
writeln('Замена первого и последнего элемента');
for m:=1 to n do
write(s[m]:5:0);
end.

Программа меняет местами первый и последний элемент. Требуется создать программу в виде функции, массивом от 1 до 10, поменять элементы местами(первое с последним,второе с предпоследним и.т.д)

[p51x]

k:=s[m]; s[m]:=s[n-m+1]; s[n-m+1]:=k;

Программа меняет местами первый и последний элемент.

Не меняет и даже не компилируется.