Вычислить значения функции y=2Cos(x) при значениях аргумента, заданных в массиве

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Math;
var X, Y: Array of Real;
    N: Integer;
    i: Integer;
    k: Integer;
    c: Real;
begin
  Write('0 - Create array; 1 Generate array: -> ');
  Readln(k);
  if k = 0 then
    begin
      Write('Array lenght: ');
      Readln(N);
      SetLength(X, N+1);
      for i := 0 to N - 1 do
        begin
          repeat
            Write('X[',i,']: ');
            ReadLn(c);
            X[i] := c;
          until (c >= -10) and (c <= 10);
        end;
    end
  else if k = 1 then
    begin
      Write('Array lenght: ');
      Readln(N);
      SetLength(X, N+1);
      for i := 0 to N - 1 do
        X[i] := RandomRange(-10, 10);
    end
  else
    begin
      Writeln('Failed !!!');
    end;
 
  SetLength(Y, Length(X));
  for i := 0 to Length(Y) - 1 do
    Y[i] := 2*Cos(X[i]);
 
  Writeln('****************************');
  for i := 0 to Length(X) - 2 do
    Write(X[i]:3:2, ' ');
 
  Writeln;
 
  for i := 0 to Length(Y) - 2 do
    Write(Y[i]:3:2, ' ');
  Readln;
end.