Массивы (delphi 7)

[Rondo]

помогите пожалуйсто!!!
1)поменять местами элементы массива c=(c1,c2,...cn),равностоящие от начала и конца массива.
2)Найти тройку последовательных элементов массива p=(p1,p2,...pn) с наименьшей суммой.

можно ссылку на файл програм (надо чтоб решение выводилось в командной строке!)
вот некоторые зарисовки
1)

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

2)

sum:=p[1]+p[2]+p[3]; k:=1;
for i:=2 to n-2 do
begin s:=0; 
for j:=i to i+2 do
s:=s+p[j];
if s<sum then begin sum:=s; k:=i;end;
end;
writeln(k,' ',k+1,' ',k+2);

[Stilet]

Ну а чего? Вполне правдоподобно...
В чем затык то?