Delphi以下代码，如何做个循环执行一次产生15个数？

var
a,b,c:integer;

begin
randomize;
a:=random(50)-50 ;
b:=random(100);
c:=a+b;
label1.caption:=inttostr(c);
end;

var
a,b,c,n:integer;

begin
randomize;

for n:= 1 to 15 do

begin
a:=random(50)-50 ;
b:=random(100);
c:=a+b;
label1.caption:=inttostr(c);

end;
end;

var a,b,i:integer; c:array[1..15] of integer;

begin randomize; for i:=1 to 15 do begin a:=random(50)-50 ; b:=random(100); c[i]:=a+b; memo1.Lines.Add(inttostr(c[i])); end;