Проблема с программой (паскаль)

[AikKo]

Почему, когда ввожу -10000 не выходит из программы, а считает сумму от -10000 до 1.

uses crt;
var n,i,k:integer;
    s:real;
Begin
   clrscr;
   readln(n);
   if (n>9999) and (n<(-9999)) then halt(0);
     
   if (n=0) then begin
    s:=1;
    writeln(s);
    halt(0);
   end;
      
    k:=n;
    s:=n;
       
   if (n<0) then begin
    for i:=n-1 to -1 do begin
      k:=k+1;
      s:=s+k;    
    end;
   end;
   
   if (n>0) then begin
     s:=((2+(n-1))/2)*n;
   end;
   
     writeln(s);
end.

[Mad_Cat]

а как число будет одновременно больше 9999 и тут же меньше -9999
это

if (n>9999) and (n<(-9999)) then halt(0);

поменять на

if abs(n)>9999 then halt(0);

либо на это

if (n>9999) or (n<(-9999)) then halt(0);

[AikKo]

Затупил...))
Спасибо!