Задача в Pascal (не знаю какой вид)

[Nikita1100]

Здравствуйте, уважаемые программисты. Помогите мне с решением одной задачи на языке Pascal:

"Даны действительные числа a1,a2...a2n. Найти max (a1+a2n, a2+a2n-1, ... , an+an+a)"
Снизу прилагается ссылка на картинку, где все описано более подробно:
http://i001.radikal.ru/1205/63/af0ddead2222.jpg

P.S. Извиняюсь, если что не так создал в моем обращении. Заранее благодарен.

[SlavaSSU]

var
a:array[1..1000] of real;
max:real;
i,n:integer;
begin
writeln('vvedite n');
readln(n);
writeln('vvedite ',2*n,' elementov massiva');
for i:=1 to 2*n do read(a[i]);
max:=a[1]+a[2*n];
for i:=1 to n do
if a[i]+a[2*n-i+1]>max then max:=a[i]+a[2*n-i+1];
writeln('max=',max:0:6);
readln;
end.

[Nikita1100]

Благодарю!