Заполните пропуски в схемах "принцип действия краудфандинга"​

#include <iostream>
#include <sstream>

/*
*
* Пример входных данных:

8
20 10 121 10 40 50 20 30

*
*/

int size; // Размер массива
int minimal_index = -1;

bool polynomial(int number){
std::string poly = std::to_string(number); // Преобразовываем int в string
for(int i = 0; i < poly.length() / 2; i++){
if (poly[i] != poly[poly.length() - i - 1]){
return false;
}
}
return true;
}

int main() {
std::cin >> size; // Вводим размер массива
int array[size]; // Создаем массив
for(int i = 0; i < size; i++){
std::cin >> array[i]; // Задаем i-тый элемент массива
if (polynomial(array[i])){ // Если число полином
if(minimal_index == -1){
minimal_index = i;
} else if (array[i] < array[minimal_index]){ // Если новый полином меньше старого
minimal_index = i; // То запоминаем новый индек
}
}
}

// Ниже используем пузырьковую сортировку
for(int i = minimal_index; i < size; i++){
for(int j = i; j < size; j++){
if(array[i] < array[j]){
int tmp = array[i];
array[i] = array[j];
array[j] = tmp;
}
}
}

// Вывод массива
for(int i = 0; i < size; i++){
std::cout << array[i] << " ";
}

return 0;
}

{$APPTYPE CONSOLE}
Const
   n = 13;
Type
   Mass = array[1..n] of integer;

Procedure BbIBOD(Var A:Mass);
Var
   i:integer;
Begin
For i:= 1 to n do
    Write(' ',A[i])
End;

Function SWP(Var A:Mass; c:real):integer;
Var
   i,j:integer;
Begin
For i:= 1 to n do
   if (A[i] < 0)and(A[i] <= c) then j:=i;
if j <> 0 then
  Begin
  WriteLn('Искомый элемент: ',A[j],'[',j,']');
  A[j]:=Sqr(A[j]);
  i:=A[n-1];
  A[n-1]:=A[j];
  A[j]:=i;
  Write('Новый массив:');
  BbIBOD(A);
  End
else Write('В массиве нет отрицательных элементов')
End;

Var
   A:Mass;
   i:integer;
   c:real;
Begin
Randomize;
Write('Исходный массив(',n,'):');
For i:= 1 to n do
   A[i]:=random(2*n+1)-n;
BbIBOD(A);
WriteLn;
Write('Введите число: ');
ReadLn(c);
SWP(A,c);
ReadLn
End.