опять массив

[Артем37]

уплотнить одномерный массив А(12) выбросив из него отрицательные элементы.

вот такую левую шляпу я написал. можете исправить?

 const n=12;
 a:array[1..n] of integer=(23,-7,24,87,3,6,9,-5,64,11,55, -9);
procedure TForm1.Button1Click(Sender: TObject);

var
b:array[1..12]of integer;
i,j,k: integer;

begin
for i:=1 to n do
stringgrid1.cells[i-1,0]:= INTTOSTR(a[i]);
begin
for i:=1 to n do
if a[i]<0 then
j:=0;
 j:=j+1;
b[j]:=a[i];

for i:=1 to j do

stringgrid2.cells[i-1,0]:=inttostr(b[i]);

end;
 end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.