delphi高手进~啊!

有如下程序,请看代码,它是一个控制台程序:
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a, int,b : integer;
begin
write('本程序用于求1到n的和，请输入操作数n:');
readln(int);
if int<0 then
begin
writeln('n的值不能为负数。');
writeln('按Enter退出。');
readln;
Exit;
end
else
for a:=1 to int do
b:=b+a;
writeln(b);
writeln('按Enter退出。');
readln;
end.
运行程序,输入100,可是结果为:2147341242,我们知道结果应该为:5050,是吧,我把代码给改了,看下面代码:
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a, int,b : integer;
begin
write('本程序用于求1到n的和，请输入操作数n:');
readln(int);
b:=0;
if int<0 then
begin
writeln('n的值不能为负数。');
writeln('按Enter退出。');
readln;
Exit;
end
else
for a:=1 to int do
b:=b+a;
writeln(b);
writeln('按Enter退出。');
readl

delphi高手进,求救啊 delphi高手进 sql delphi高手进 delphi编程高手进 delphi高手进下 DELPHI高手进~~ Delphi中的问题，高手进 Delphi 高手进,dbgrid 问题 delphi 高手 DELPHI该怎么学??高手进