Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения программного стека - PascalABC.NET (122552)

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

Помогите пожалуйста исправить!!! Писал простенький тригонометрический калькулятор. Я так понимаю ошибка из-за рекурсии в модуле, но я не знаю как ее устранить. Модуль:

Unit Trigonometriya;
interface
Function Sin(x:real) :real;
Function Cos(x:real) :real;
Function Tg(x:real) :real;
Function Ctg(x:real) :real;
Function Ln(x:real) :real;
 
Implementation
var x:real; 
z:=x*pi/180;
Function Sin(x:real) :real;
begin
 Sin:=sin(z);
 writeln('Синус угла= ',sin(z):0:3);
end;
Function Cos(x:real) :real;
begin
 Cos:=cos(z);
 writeln('Косинус угла= ',cos(z):0:3);
end;
Function Tg(x:real):real;
begin
 Tg:=sin(z)/cos(z);
 writeln('Тангенс угла= ',Tg(z):0:3);
end;
Function Ctg(x:real):real;
begin
 Ctg:=cos(z)/sin(z);
 writeln('Котангенс угла= ',Ctg(z):0:3);
end;
Function Ln(x:real) :real;
begin
 Ln:=Ln(x);
 writeln('Логарифм числа= ',Ln(x):0:3);
end;
end.

Основная программа:

Program Trigonometricheskii_kalkulyator;
Uses Trigonometriya;
var a,b:real; s:byte;
begin
repeat
writeln('Выберите задачу:');
writeln('1-вычислить Sin');
writeln('2-вычислить Cos');
writeln('3-вычислить Tg');
writeln('4-вычислить Ctg');
writeln('5-вычислить Ln');
writeln('Другое - выход');
readln(s);
until s in [1..5];
case s of
1:begin
writeln('Введите значение угла(в градусах): ');
readln(a);
Sin(a);
end;
2:begin
writeln('Введите значение угла(в градусах): ');
readln(a);
Cos(a);
end;
3:begin
writeln('Введите значение угла(в градусах): ');
readln(a);
Tg(a);
end;
4:begin
writeln('Введите значение угла(в градусах): ');
readln(a);
Ctg(a);
end;
5:begin
writeln('Введите число: ');
readln(a);
Ln(a);
end;
else exit;
end;
end.

Решение задачи: «Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения программного стека»

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

Function Sin(x:real) :real;
begin
 writeln('Синус угла= ',PABCSystem.sin(x*pi/180):0:3);
end;

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

В коде определена функция Sin с одним аргументом типа real и возвращаемым значением типа real.
Внутри функции происходит вывод значения синуса угла на экран с помощью функции writeln.
Для вычисления значения синуса используется функция PABCSystem.sin, в которую передается аргумент x*pi/180.
В качестве формата вывода используется строка 'Синус угла= ', в которую подставляется значение синуса угла.
Функция PABCSystem.sin вызывается с аргументом x*pi/180 и возвращает результат вычисления синуса угла.
Результат вычисления синуса угла приводится к типу real с помощью синтаксиса :0:3.
Значение синуса угла выводится на экран с помощью функции writeln.
Код не содержит циклов или рекурсии, которые могли бы вызвать переполнение стека.
Ошибка StackOverflowException может быть вызвана неправильным использованием памяти или некорректной работой с рекурсией.
В данном коде ошибки StackOverflowException не должно возникать, если аргумент x не является нулем или отрицательным числом.