Segrif {Записал оба решения в одной программе. Можете использовать процедуры и функции по своему усмотрению}

const 
 n = 8;

type
 vector = array[1..n] of integer;

const
 c : vector = (14, 28, 55, 46, 23, 424, 32, 18);

function findMax(var v:vector; l,r:integer):integer;
{индекс максимального элемента в диапазоне от l до r}
var 
 i, m:integer;
begin
 m := l;
 for i := l + 1 to r do
   if v[i] > v[m] then
     m := i;
 findMax := m
end;

procedure swap(var v:vector; l,r:integer);
{меняет местами элементы массива с заданными индексами}
var
 t: integer;
begin
 t := v[l];
 v[l] := v[r];
 v[r] := t
end;

procedure print(var v: vector; l,r:integer);
{печатает элементы массива под номерами от l до r}
var
 i: integer;
begin
 for i := l to r do
   write(v[i],' ')
end;

function sum(x: integer): integer;
var
 s: integer;
begin
 s := 0;
 x := abs(x);
 while x > 0 do
   begin
   s := s + x mod 10;
   x := x div 10
   end;
 sum := s
end;

var
 v1, v2: vector;
 i: integer; {просто цикловая переменная}
 l,r: integer; {переменные для задачи 1}
 k: integer; {для задачи 2}

begin

 {1}
 for i := 1 to n do
   v1[i] := c[i]; 
 l := findMax(v1, 1, n div 2);
 r := findMax(v1, n div 2 + 1, n);
 swap(v1, l, r);
 print(v1, 1, n);
 writeln;

 {2}
 k := 0;
 for i := 1 to n do
  if sum(c[i]) = 10 then
  begin
  k := k + 1;
  v2[k] := c[i]
  end;
 print(v2, 1, k)

end.