Pascal. Алгоритм.

[HD-boy]

Здравствуйте. Помогите пожалуйста с задачкой на паскале.

Даны целые числа a и b. Составить алгоритм для определения знака разности a-b. Разность не вычислять. Разрешается сравнивать числа a и b с нулем, а между собой можно сравнивать только модули a и b.

часть кода:

IF (a>0) AND (b>0) THEN
BEGIN
IF ABS(a)>ABS(b) THEN WriteLn('Positive')
ELSE
IF ABS(a)<ABS(b) THEN WriteLn('Negative')
ELSE
WriteLn('Zero')
END ELSE
IF (a<0) AND (b<0) THEN
BEGIN
IF ABS(a)>ABS(b) THEN WriteLn('Negative')
ELSE
IF ABS(a)<ABS(b) THEN WriteLn('Positive')
ELSE
WriteLn('Zero')
END ELSE
IF (a>0) AND (b<0) THEN
WriteLn('Positive')
ELSE
IF (a<0) AND (b>0) THEN
WriteLn('Negative')
ELSE
IF (a=0) AND (b>0) THEN
WriteLn('Negative')
ELSE
IF (a=0) AND (b<0) THEN
WriteLn('Positive')
ELSE
IF (a<0) AND (b=0) THEN
WriteLn('Negative')
ELSE
IF (a>0) AND (b=0) THEN
WriteLn('Positive')
ELSE
IF (a=0) AND (b=0) THEN
WriteLn('Zero');

[IT-man]

var 
a:real;
b:real;

begin
readln(a);
readln(b);
if (abs(a)=abs(b)) and (((a<0) and (b<0)) or ((a>0) and (b>0))) then writeln('0')
else if ((a<0) and (abs(a)>abs(b)))or ((a>0)and (abs(a)<abs(b)))  then writeln('-')
else  writeln('+');
readln;
end.

[HD-boy]

Благодарю.