Задача по масивам.

[aerosm]

Дан одномерный массив от 1 до 10 (заполняеться рандомом).Вводиться число k. Вывести в стринггрид числа в таком порядке: сначала те, которые меньше k, потом равны, а потом больше k.

вот мои пробы

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
randomize;
for i:=1 to 10 do
stringgrid1.Cells[i-1,0]:=inttostr(random(15)+1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..10] of integer;
i,k:integer;
begin
k:=strtoint(edit1.Text);
for i:=1 to 10 do
a[i]:=strtoint(stringgrid1.cells[i-1,0]);
for i:=1 to 10 do
begin
if a[i]<k then
stringgrid2.cells[i-1,0]:=inttostr(a[i])
else
if a[i]=k then
stringgrid2.cells[i-1,0]:=inttostr(a[i])
else
if a[i]>k then
stringgrid2.cells[i-1,0]:=inttostr(a[i]);
end;
end;

end.

[Voxa7]

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
randomize;
for i:=1 to 10 do
stringgrid1.Cells[i-1,0]:=inttostr(random(15)+1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..10] of integer;
i,k,count:integer;
begin
k:=strtoint(edit1.Text);
for i:=1 to 10 do
a[i]:=strtoint(stringgrid1.cells[i-1,0]);
count := 0;
for i:=1 to 10 do
if a[i]<k then
begin
stringgrid2.cells[counnt,0]:=inttostr(a[i])
inc(count);
end;

for i:=1 to 10 do
if a[i]=k then
begin
stringgrid2.cells[counnt,0]:=inttostr(a[i])
inc(count);
end;

for i:=1 to 10 do
if a[i]>k then
begin
stringgrid2.cells[counnt,0]:=inttostr(a[i])
inc(count);
end;
end;

end.

[aerosm]

немножко не то, но очень помогло.
спасибо!