Дан массив С размеров 10 элементов,элементы вводятся с клавиатуры. а)Отыскать сумму

const R=10; //размер массива
fi=1; //1-ый элемент массива
se=5; //5-ый элемент массива
Var a: array [1..R] of integer;
i, j, p, sum: integer;
begin
write (Введите массив: );
for i:=1 to R do read (a[i]);
//сумма отрицательных элементов массива
for i:=1 to R do
begin
if a[i]lt;0 then sum:=sum+a[i];
end;
Writeln (а) Сумма отрицательных частей массива равна , sum);
//перемещение 1 и 5 частей
p:=a[fi];
a[fi]:=a[se];
a[se]:=p;
Write (б) Изменённый массив: );
for i:=1 to R do write (a[i], );
Writeln();
//сортировка по возрастанию способом "пузырька"
for i:=1 to R-1 do
begin
for j:=1 to R-i do
if a[j]gt;a[j+1] then
begin
p:=a[j];
a[j]:=a[j+1];
a[j+1]:=p;
end;
end;
Write (в) Отсортированный массив: );
for i:=1 to R do write (a[i], );
end.