В массиве Y[1..N] определить сумму первого с последним, второго с предпоследним и т.д. Из сумм создать новый массив и определить минимальное в этом массиве — Pascal(Паскаль)

Program  mas;
uses crt;
const n=10;
Var y,b:array[1..n]  of integer;
    i,min:integer;
Begin
clrscr;
Writeln('   vvedite ',n,' elementov massiva   ');
for i:=1 to n do read(y[i]);
readln;
clrscr;
writeln('Ishodnyj massiv:');
for i:=1 to n do
write(y[i],' ');
writeln;
writeln;
for i:=1 to n div 2 do
b[i]:=y[i]+y[n-i+1];
writeln('Massiv summ:');
for i:=1 to n div 2 do
write(b[i],' ');
min:=b[1];
for i:=2 to n div 2 do
if min>b[i] then min:=b[i];
writeln;
writeln('minimalnii element=  ',min);
readkey
end.