Описать функцию Sign(x) целого типа - Pascal ABC

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

Описать функцию Sign(X) целого типа, возвращающую для дробного числа X следующие значения: -1, если X < 0; 0, если X = 0; 1, если X > 0. С помощью этой функции в программе найти значение выражения Sign(А) + Sign(В) для заданных чисел А и В.

Решение задачи: «Описать функцию Sign(x) целого типа»

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

program pr;
var
a,b,n,m:integer;
sum:double;
function Sign( var x:double):integer;
begin
if x<0 then
x:=-1;
if x=0 then
x:=0;
if x>0 then
x:=1;
end;
begin
writeln('Введите 1 число');
readln(n);
a:=sign(n);
writeln('Введите 2 число');
readln(m);
b:=sign(m);
sum:=a+b;
writeln(sum);
end.

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

Создается программа pr с объявленными переменными a, b, n, m: integer и sum: double.
Определяется функция Sign(var x: double), которая будет возвращать целое число.
В теле функции проверяется значение переменной x.
Если x меньше нуля, то значение переменной x заменяется на -1.
Если x равно нулю, то значение переменной x заменяется на 0.
Если x больше нуля, то значение переменной x заменяется на 1.
Выполняется чтение одного числа от пользователя и сохраняется в переменной n.
Выполняется чтение второго числа от пользователя и сохраняется в переменной m.
Вычисляется сумма a и b и сохраняется в переменной sum.
Выводится значение sum.