Не правильно работает программа

[sergik-2504]

Составить программу,которая проводит выборы: 3 кандидата и 2000 избирателей.

Program Vibory;
uses CRT 
type
kand=object
private
sum:integer;
public
end;
izb=object
public
function vib:integer;
end;
var
b:array[1..3] of kand;
a:array[1..2000] of izb;
i:integer;
function izb.vib:integer;
begin
vib:=random(3)+1;
end;
begin
randomize
b[1].sum:=0;
b[2].sum:=0;
b[3].sum:=0;
for i:=1 to 2000 do
begin
if a[i].vib = 1 then b[1].sum:=b[1].sum + 1; 
if a[i].vib = 2 then b[2].sum:=b[2].sum + 1; 
if a[i].vib = 3 then b[3].sum:=b[3].sum + 1;
end;
writeln('pervuy kandidat nabral ',b[1].sum); 
writeln('vtoroi kandidat nabral ',b[2].sum);
writeln('tretii kandidat nabral ',b[3].sum); 
writeln('vsego progolosovalo ', b[1].sum+b[2].sum+b[3].sum);
end.

вроде бы все работает,но почему голосуют то 1960,то 2040..то иное число избирателей (
Что надо исправить??

[Блуд]

Program Vibory;
uses CRT 
type
kand=object
private
sum:integer;
public
end;
izb=object
public
function vib:integer;
end;
var
b:array[1..3] of kand;
a:array[1..2000] of izb;
i,r:integer;
function izb.vib:integer;
begin
vib:=random(3)+1;
end;
begin
randomize
b[1].sum:=0;
b[2].sum:=0;
b[3].sum:=0;
for i:=1 to 2000 do
begin
r:=a[i].vib;
if r = 1 then b[1].sum:=b[1].sum + 1; 
if r = 2 then b[2].sum:=b[2].sum + 1; 
if r = 3 then b[3].sum:=b[3].sum + 1;
end;
writeln('pervuy kandidat nabral ',b[1].sum); 
writeln('vtoroi kandidat nabral ',b[2].sum);
writeln('tretii kandidat nabral ',b[3].sum); 
writeln('vsego progolosovalo ', b[1].sum+b[2].sum+b[3].sum);
end.

а лучше так:

for i:=1 to 2000 do
begin
r:=a[i].vib;
 b[r].sum:=b[r].sum + 1; 

end;