Циклический сдвиг элементов массива (TurboPascal)

[VladKB1]

Помогите решить задачу с помощью циклического сдвига элементов массива:

Прочитайте из первой строки число n, n≤10, со второй строки – n элементов массива.
Поменяйте местами элементы массива зеркально относительно центра так, как показано в
примере ввода-вывода.
В программе можно использовать не более одного массива.
Ввод и вывод данных должен проводиться так, как показано в примере фрагмента программы.
Пример фрагмента программы:
...
for i:=1 to n do read(a[i]);
...
for i:=1 to n-1 do write(a[i],' ');
writeln(a[n]);
...
input.txt
5
1 2 3 4 5
output.txt
5 4 3 2 1

Задачу решил если кому-то это поможет вот код:

var
 n,i,j: longint;
 a: array [0..100] of longint;
begin
 assign(input,'input.txt');
 reset(input);
 assign(output,'output.txt');
 rewrite(output);
 read(n);

 if n = 0 then
 begin
  writeln;
  halt;
 end;

 for i:=1 to n do read(a[i]);

 for i:=1 to n div 2 do
 begin
  a[0]:=a[i];
  a[i]:=a[n+1-i];
  a[n+1-i]:=a[0];
 end;
 for i:=1 to n-1 do write(a[i],' ');
 writeln(a[n]);
end.

[ZX Spectrum-128]

http://www.programmersforum.ru/showp...6&postcount=29

[Аватар]

for i:=1 to n div 2 do begin x:=a[i]; a[i]:=a[n+1-i]; a[n+1-i]:=x; end;

[VladKB1]

Сообщение от Аватар

for i:=1 to n div 2 do begin x:=a[i]; a[i]:=a[n+1-i]; a[n+1-i]:=x; end;

Спасибо это оказалось легко , а я... Теперь всё работает ещё раз огромное спасибо!