Дано число а. Определить первый отрицательный член последовательности - Pascal ABC

Формулировка задачи:

Дано число а. Определить первый отрицательный член последовательности x1,x1,x3,...,xn, где x1=а, xn=tg(xn-1) не могу разобраться с этим помоги, очень срочно

                    Листинг программы
                
 
                        
                          
                    
uses crt;
type
 mas1=array[1..10] of real;
var
x:mas1;
a:real;
i,n:integer;
begin
 
write('ГўГўГҐГ¤ГЁГІГҐ Г*=');readln(a);
 
for i:=1 to n do
x[1]:=a;
 x[i]:=(sin(x[i-1])/cos(x[i-1]));
writeln('x[',i,']',x[i]);
 end.

Решение задачи: «Дано число а. Определить первый отрицательный член последовательности»

Листинг программы

  var x,a : real;
  var i    : integer; 
  write('a=');
  readln(a);
  Begin
    i:=1;
    x:=a;
    while (x>0) do begin
       i:=i+1;
       x:=sin(x)/cos(x);
    end;
    writeln(i,' ',x);
end.

Объяснение кода листинга программы

Создаются переменные x, a и i типа real и integer соответственно.
Задается начальное значение переменной x как a.
Выводится сообщение a= и считывается значение переменной a.
Инициализируется переменная i значением 1.
Запускается цикл while, условием которого является x>0.
Внутри цикла увеличивается значение переменной i на 1.
Значение переменной x считывается и сохраняется в переменную x.
Вычисляется значение x как sin(x)/cos(x).
Проверяется условие x>0. Если оно истинно, то цикл while повторяется.
По завершении цикла while выводится значение переменной i и значение переменной x.