Как составить программу поиска минимума среди значений косинусов компонент вектора x размерностью n ?

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

begin
  var n:=ReadInteger('n=');
  var a:=ReadArrReal('Введите компоненты:',n);
  Writeln('Минимальный косинус равен ',a.Select(x->cos(x)).Min:0:5)
end.

Годовая процентная доходность (Annual Percentage Yield, APY) — ставка дохода, вычисленная с учётом применения к депозитам или инвестиционным продуктам сложных процентов. Позволяет упростить сравнение доходности для годовых сложных процентов с различающимися интервалами начисления дохода (когда проценты начисляются несколько раз в году по годовой сложной процентной ставке). Годовая процентная доходность (APY) показывает такую процентную ставку доходности, как если бы годовой сложный процент начислялся один раз в год и давал бы такую же наращенную стоимость (будущая (приведенная) стоимость) как при начислении рассматриваемого годового сложного процента, который выплачивается несколько раз в год.

Var a,s1,s2:integer;
begin
read (a);
if (a>=1000)and (a<=9999)then
begin
s1:=(a mod 10) + ((a mod 1000) div 100);
s2:=(a div 1000) + ((a mod 100) div 10);
if (s1>s2)then writeln ('Сумма цифр,стоящих на четных местах больше суммы цифр, стоящих на нечетных местах');
if (s1<s2)then writeln ('Сумма цифр,стоящих на нечетных местах больше суммы цифр, стоящих на четных местах');
if (s1=s2)then writeln ('Сумма цифр,стоящих на четных местах равна сумме цифр, стоящих на нечетных местах');
end
else writeln ('Вы ввели не 4-ёхзначное число');
end.