Рандомное заполнение массива и стринггрида

[Repac123456]

Текст проги:

s,s2,s1,s3: real;
  x: array[1..100] of Extended;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
n: integer;
i: integer;
begin
s1:=0;
s2:=0;
s3:=0;
s:=0;
n:=StrToInt(Edit1.text);
for i:=1 to n do
begin
if (i*i<=n) then
begin
x[i]:= random;
s1:=s+x[1*1];
s2:=s1+x[4*4];
S3:=S2+x[9*9];
s:=s1+s2+s3;
StringGrid1.Cells[1,1]:=FloatToStr(s1);
StringGrid1.Cells[1,2]:=FloatToStr(s2);
StringGrid1.Cells[1,3]:=FloatToStr(s3);
StringGrid1.Cells[1,4]:=FloatToStr(s);
end
else
ShowMessage('êâàäðàò íîìåðà ýë-òà ìàññèâà áîëüøå n');
break;
end;
end;
end.

Проблема в том что в стринггриде выводится только s без s1 s2 и s3.
объясните в чем ошибка пжалуйста...

[Roof]

1)а строк в StringGrid хватает?

StringGrid1.Cells[1,4]:=FloatToStr(s);

[1,4] значит в первом столбце в четвертой строке.

2)Не увидел использования Randomize .

[Repac123456]

в стринггридем хватает строк, а вот Randomize куда нужно вставить, сюда как я полагаю?

begin
Randomize
x[i]:= random;

[Roof]

1) у меня по твоему коду все значения выводятся нормально.
2)Randomize - http://www.google.ru/search?hl=ru&so...=&oq=&gs_rfai=
Думаю мне незачем пересказывать то, что в справочниках описано.

[Repac123456]

спасибо выручили

из того что я понял:

begin
if i*i<=n then
begin
x[i]:= random(1000);
Randomize;
s1:=s+x[1*1];
Randomize;
s2:=s1+x[4*4];
Randomize;
S3:=S2+x[9*9];

но это даёт одни и те же рандомные значения для каждого s

[Roof]

один раз достаточно вызвать в процедуре.

procedure TForm1.Button1Click(Sender: TObject);
var
n: integer;
i: integer;
begin
Randomize
...