Составить программу для вычисления элементов вектора Х по формуле

program Project1;
 
var
  x: array [1..100] of real; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i: integer; { Вспомогательные переменные для организации циклов.}
 
begin
  write('Введите значение максимального количества вводимых элементов массива: ');
  Readln(n);
  write('Введите значение первого элемента массива: ');
  Readln(x[1]);
  write('Введите значение второго элемента массива: ');
  Readln(x[2]);
   for i:= 3 to n do
    begin
      x[i]:= sin(x[i-1])*cos(x[i-2]);
    end;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(x[i]:8:4);
      if i mod 10 = 0 then
        writeln;
    end;
 
  Readln;
end.