Нужен человек для программирования в Delphi.

Mef

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

пользуюсь в меру своих возможностей и времени , да и они все 9 мне не нужны.

Подскажите , написал код для сортировки массива ( сначало элементы стоящие в нечетных , потом в четных) но когда число элементов 3-5-7 и т.д то не работае. в чем ошибка?
procedure TForm1.Button4Click(Sender: TObject);
var
i,j, k, m:integer;
tmp: integer;
begin
j:= (high(a)+1) div 2;
if odd(j)then inc(j);
k:= 0;
for i:=1 to j do
begin
m:= j+k;
if (m<=High(a)) and (not odd(i+1)) then
begin
tmp:= a[i];
a[i]:= a[m];
a[m]:=tmp;
inc(k,2)
end;
end;
stringgrid2.ColCount:=high(a)+1;
for i:=0 to high(a) do
stringgrid2.cells[i,0]:=inttostr(a[i]);
end;