Яке посилання доцільно використовувати у формулі, якщо вона використовується лише один раз і не буде копіюватися до інших клітинок таблиц

// PascalABC.NET 3.2, сборка 1509 от 27.07.2017
// Внимание! Если программа не работает, обновите версию!

function SumDig(n:integer):integer;
begin
  Result:=0;
  while n>0 do begin
    Result+=n mod 10;
    n:=n div 10
    end
end;

begin
  var a:=ReadSeqInteger('Вводите числа:',ReadInteger('n=')).ToArray;
  Write('Палинодромы: ');
  a.Select(x->x.ToString).Where(x->x=x.Inverse).Println;
  var k:=ReadInteger('Введите простое число');
  Write('Числа, сумма цифр которых больше введенного: ');
  a.Where(x->SumDig(x)>k).Println
end.

Пример
n= 12
Вводите числа: 9437 2522 3534 1532 4664 6882 7629 5820 2530 9889 6526 6573
Палинодромы: 4664 9889
Введите простое число 19
Числа, сумма цифр которых больше введенного: 9437 4664 6882 7629 9889 6573

Const
 n=10;
var
 A: array[1..n] of integer;
 B:array[1..n] of integer;
  i: integer;
  sum: integer;
begin
{Заполнение массивов случайными числами}
randomize;
for i:=1 to n do begin
  A[i]:=random(100)-50;
  B[i]:=random(100)-50; {или B[i]=A[i];, если значения массива B должны совпадать со значениями массива A }
end;
{Поиск суммы отрицательных элементов}
sum:=0;
for i:=1 to n do 
  if A[i]<0 then sum:=sum+A[i];
{Замена нулевых элементов массива B на полученную сумму}
for i:=1 to n do
  if B[i]=0 then B[i]:=sum;
{Вывод значений массива A}
writeln('массив A');
for i:=1 to n do
  write(A[i],',');
writeln('');
writeln('Массив B');
{Вывод значений массива B}
for i:=1 to n do
  write(B[i],',');

{Ожидание нажатия клавиши return от пользователя.}
readln;
end.