Пожалуйста исправьте программу, не работатет.(паскаль)

[motivator]

Задание
Вот сама программа, она не работает должным образом, испраыьте пожалуйста, умоляю!!!

program zad_3;
function tg(x:real):real;
begin
tg:=0;
if cos(x)=0 then writeLn(x)
else
tg:=sin(x)/cos(x)
end;
var
k, m: integer;
x: array[1..10] of real;
begin
readln(m);
readln(x[1]);
for k:=2 to m do
begin
x[k]:=power(tg(x[k-1]),1/3)-ln(abs(x[k-1]));
writeln(x[k]);
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

Кросспост - http://www.programmersforum.ru/showthread.php?t=298925