Массив: Все нечетные элементы целочисленного массива A(n) поместить в начало массива L(n), а нечетные – в массив K(n).

  cl := 0;
  ck := 0;
  for i := 1 to n do
    if odd(a[i])
      then
        begin
          cl := cl + 1;
          l[cl] := a[i]
        end
      else
        begin
          ck := ck + 1;
          k[cl] := a[i]
        end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 k1:=0; k2:=0;
 for i:=1 to n do
  if odd(a[i]) then
    begin
    k1:=k1+1;
    l[k1]:=a[i];
    end
  else
    begin
    k2:=k2+1;
    k[k2]:=a[i];
    end;
  for i:=0 to k1-1 do
sg2.Cells[i,0]:=inttostr(a[i]);   label5.Caption:='Êîëè÷åñòâî:='+inttostr(k1);
for i:=0 to k2-1 do
sg3.Cells[i,0]:=inttostr(a[i]); label6.Caption:='Êîëè÷åñòâî:='+inttostr(k2);
end;

var
  Form1: TForm1;
  a,l,k:array of integer;
  i,n,k1,k2:integer;
implementation
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(edit1.Text);
setlength(a,n);
sg1.ColCount:=n;
sg2.ColCount:=n;
sg3.ColCount:=n;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
randomize;
for i:=0 to n-1 do begin
a[i]:=random (21)+10;
sg1.Cells[i,0]:=inttostr(a[i]);
end;  end;
procedure TForm1.Button3Click(Sender: TObject);
begin
{for i:=0 to n-1 do
if a[i] mod 2<>0 then
  k1:=k1+1
  else
 k2:=k2+1;}
 k1:=0; k2:=0;
 for i:=1 to n do
  if odd(a[i]) then
    begin
    k1:=k1+1;
    l[k1]:=a[i];
    end
  else
    begin
    k2:=k2+1;
    k[k2]:=a[i];
    end;
  for i:=0 to k1-1 do
sg2.Cells[i,0]:=inttostr(a[i]);   label5.Caption:='Количество:='+inttostr(k1);
for i:=0 to k2-1 do
sg3.Cells[i,0]:=inttostr(a[i]); label6.Caption:='Количество:='+inttostr(k2);
end;
end.

for i:=0 to n-1 do

for i:=1 to n

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(edit1.Text);
setlength(a,n);
setlength(l,n);
setlength(k,n);