Дан массив С размеров 10 элементов,элементы вводятся с клавиатуры. а)Найти сумму отрицательных элементов массива б)Поменять

const R=10; //размер массива fi=1; //первый элемент массива se=5; //пятый элемент массиваVar a: array [1..R] of integer; i, j, p, sum: integer;beginwrite (\'Введите массив: \');for i:=1 to R do read (a[i]);//сумма отрицательных элементов массиваfor i:=1 to R do begin if a[i]<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]>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.