Получить отрицательную сумму, Задача (1 курс) Опции

[Орхидея]

Сегодня мне была дана задачка:
Написать программу получения из N чисел (N=10) вводимых с клавиатуры получить отрицательную сумму.
Знакома я с паскалем всего два часа мне он понравился, не судите строго меня за мою примитивность просто я его очень мало знаю и написала как знаю. Скажите верна ли такая программка при данном условии.

Код

uses crt;
var
n,n1,n2,n3,n4,n5,n6,n7,n8,n9,x,x1;longint;
begin
write('n,n1,n2,n3,n4,n5,n6,n7,n8,n9=');
readln(n,n1,n2,n3,n4,n5,n6,n7,n8,n9);
x:= n+n1+n2+n3+n4+n5+n6+n7+n8+n9;
writeln('n+n1+n2+n3+n4+n5+n6+n7+n8+n9=',x)
x1:= x*-1;
writeln('x*-1=',x1);
end.

Я раньше нигде не програмировала, так что тут все мои знания за два часа по Фаронову.
Правильно ли решена задача?

[Орхидея]

Я совсем запуталась)))
написала так:

Код

uses crt;
var
i:integer;
x,sum:integer;
begin
sum:=0;
for i:= 1 to 10 do begin
readln(x);
if x<0 then
sum:= sum+x;
writeln('sum=',sum);
if x>0 then
sum:= sum+x*-1;
end;
writeln('sum=',sum);
end.

Получается всё то что я хотела но совсем каким то другим мне не понятным путем. Вводя любые числа будь то 50+(-40)+90+(-120) и т.д. выходит отрицательное число и все положительные цифры что я ввожу записываются как отрицательные.
Точно я где то допустила ошибку, но я паскаль то знаю всего ничего один день.
Вольво если не трудно поясни в чём проблема((