Deplphi 7. Одномерный массив случайных чисел. StringGrid

[DombagsDelite]

Помогите найти ошибки.
Массив случайных чисел(число элементов массива вводиться пользователем ) нужно вывести в первый стринггрид, а затем во второй стринггрид вывести положительные элементы этогоже массива.

var
  Form1: TForm1;
  a:array[1..100] of integer;
  n:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
n:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=n;
for i:=0 to n do
 begin
 a[i]:=random(100) - random(100);
 StringGrid1.Cells[i,0]:=IntToStr(a[i]);
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var b:array[1..100]of integer;
i,j:integer;
begin
j:=0;
for i:=0 to n do
if a[i]>0 then
 begin
 b[j]:=a[i];
 inc(j);
 end;
for i:=0 to j do
StringGrid2.Cells[i,0]:=IntToStr(b[i]);

end;

[Aspirisha]

Вы пишете не паскале, а не си. У вас

a:array[1..100] of integer;

Так с чего тогда вы просматриваете массив с нулевого элемента?

for i:=0 to n do
if a[i]>0 then

[DombagsDelite]

{ [1..100] }это вроде диапазон значений массива, но даже если я для i присваиваю единицу, изменений не произошло(....

[Stilet]

Упростим?:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var k,i:integer;
begin
k:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=k;
StringGrid2.ColCount:=k;
for i:=0 to StringGrid1.ColCount-1 do begin
 k:=random(100) - random(100);
 if k>0 then StringGrid2.Cells[i,0]:=IntToStr(k);
 StringGrid1.Cells[i,0]:=IntToStr(k);
 end;
end;

Подходит?

[Aspirisha]

Это не просто диапазон. Это индексы первого и последнего элементов. А вот в StringGrid если мне не изменяет память нумерация идет с 0. И то же для b и его индекса j. Других ошибок вроде нет. А компилятор ругается или программа падает?

[DombagsDelite]

Stilet, интересный метод, но преподаватель придрался и хочет чтоб две кнопки было, в добавок чтоб число столбцов в стринггриде было равно кол-ву элементов в конечном массиве и соответственно чтобы пустых ячеек не было, вот и приходиться так расписывать.)
Подправил, процедуру inc раньше поставил, до этого на при нажатии на Button2 прога ошибку выдавала.

procedure TForm1.Button2Click(Sender: TObject);
var b:array[1..100]of integer;
i,j:integer;
begin
j:=0;
for i:=1 to n do
if a[i]>0 then
 begin
 inc(j);
 b[j]:=a[i];
 end;
for i:=0 to j do
StringGrid2.Cells[i,0]:=IntToStr(b[i]);

end;

Вроде заработала. но токо вот в стригрид2 ячейка [0,0] нулем заполнена и число столбцов не знаю как подсчитать.

[Stilet]

StringGrid2.ColCount:=j;
for i:=0 to j do
 StringGrid2.Cells[i,0]:=IntToStr(b[i+1]);

[DombagsDelite]

Спасибо, вроде все работает)