Составить новый вектор, записав в него для каждого элемента исходного вектора сумму его цифр

program prog;
 
{$mode fpc}
 
//---------
function DigitsSum(val: integer): integer;
var
  res: integer = 0;
begin
  val:= Abs(val);
  while(val <> 0) do begin
    Inc(res, val mod 10);
    val:= val div 10;
  end;
 
  DigitsSum:= res;
end;
//---------
 
const
  CAPACITY = 100;
var
  i: integer;
  a_size, b_size: integer;
  a: array[1..CAPACITY] of integer;
  b: array[1..CAPACITY] of integer;
begin
  repeat
    Write('Длина вектора(1-', CAPACITY, '): ');
    ReadLn(a_size);
  until (a_size >= 1) and (a_size <= CAPACITY);
 
  for i:= 1 to a_size do begin
    Write('[', i, ']: ');
    ReadLn(a[i]);
  end;
 
  b_size:= a_size;
 
  for i:= 1 to a_size do
    b[i]:= DigitsSum(a[i]);
 
  WriteLn('Суммы цифр элементов вектора:');
  for i:= 1 to b_size do
    WriteLn('[', i, ']: ', b[i]);
 
  ReadLn;
end.

program prog;
 
{$mode fpc}
 
uses
  crt;
 
const
  CAPACITY = 100;
 
var
  i, j: integer;
  m, n: integer;
  vec_size: integer;
  flag: boolean;
 
var
  matrix: array[1..CAPACITY, 1..CAPACITY] of integer;
  vector: array[1..CAPACITY] of integer;
 
begin
  repeat
    Write('Количество строк(1-', CAPACITY, '): ');
    ReadLn(m);
  until (m >= 1) and (m <= CAPACITY);
 
  repeat
    Write('Количество столбцов(1-', CAPACITY, '): ');
    ReadLn(n);
  until (n >= 1) and (n <= CAPACITY);
 
  for i:= 1 to m do begin
    for j:= 1 to n do begin
      Write('[', i, ',', j, ']: ');
      ReadLn(matrix[i,j]);
    end;
  end;
 
  ClrScr;
  WriteLn('Матрица:');
  for i:= 1 to m do begin
    for j:= 1 to n do
      Write(matrix[i,j]:5);
    WriteLn;
  end;
 
  vec_size:= 0;
  for j:= 1 to n do begin
    flag:= true;
    for i:= 1 to m do begin
      if(matrix[i,j] mod 2 <> 0) then begin
        flag:= false;
        break;
      end;
    end;
    if flag = true then begin
      Inc(vec_size);
      vector[vec_size]:= j;
    end;
  end;
 
  WriteLn('Результат:');
  for i:= 1 to vec_size do
    WriteLn('[', i, ']: ', vector[i]);
 
  ReadLn;
end.

program prog;
 
{$mode fpc}
 
// ----------
function SumOfDivisors(n: integer): integer;
var
  i: integer;
  res: integer = 0;
begin
  for i:= 1 to n do
    if n mod i = 0 then
      Inc(res, i);
  SumOfDivisors:= res;
end;
// ----------
 
 
const
  CAPACITY = 100;
var
  i, j: integer;
  size: integer;
  a: array[1..CAPACITY] of integer;
begin
  repeat
    Write('Длина вектора(1-', CAPACITY, '): ');
    ReadLn(size);
  until (size >= 1) and (size <= CAPACITY);
 
  for i:= 1 to size do begin
    Write('[', i, ']: ');
    ReadLn(a[i]);
  end;
 
  j:= 1;
  for i:= 1 to size do begin
    if SumOfDivisors(a[i]) < 10 then begin
      a[j]:= a[i];
      inc(j);
    end;
  end;
 
  size:= j - 1;
 
  WriteLn('Результат: ');
  for i:= 1 to size do
    WriteLn('[', i, ']: ', a[i]);
 
  ReadLn;
end.