Сформировать одномерные массивы В и С, содержащие, соответственно, четные и нечетные элементы массива А

procedure FillRandom(sg: TStringGrid);
var
  i, j: Integer;
begin
  for i := 0 to sg.ColCount - 1 do
    for j := 0 to sg.RowCount - 1 do
      sg.Cells[i, j] := IntToStr(50 - Random(100));
end;
 
procedure Split(A, B, C: TStringGrid);
var
  i, j: Integer;
begin
  B.ColCount:=1;
  C.ColCount:=1;
  for i := 0 to A.ColCount - 1 do
    for j := 0 to A.RowCount - 1 do
      if not Odd(StrToIntDef(A.Cells[i,j],0)) then
        begin
          B.Cells[B.ColCount-1,0]:=A.Cells[i,j];
          B.ColCount:=B.ColCount+1;
        end
      else
        begin
          C.Cells[C.ColCount-1,0]:=A.Cells[i,j];
          C.ColCount:=C.ColCount+1;
        end;
  B.ColCount:=B.ColCount-1;
  C.ColCount:=C.ColCount-1;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Split(StringGrid1, StringGrid2, StringGrid3);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  FillRandom(StringGrid1);
end;
 
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  StringGrid1.ColCount := SpinEdit1.Value;
  FillRandom(StringGrid1);
end;
 
procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
  StringGrid1.RowCount := SpinEdit2.Value;
  FillRandom(StringGrid1);
end;

var
  a: array of array of Integer;
  b, c: array of Integer;
  n, m: Integer;
  i, j: Integer;
  k, q: Integer;
 
begin
  // Запрашивать ввод пока не будут корректные данные:
  repeat
    Write('Введите N (к-во столбцов): ');
    ReadLn(n);
    Write('Введите M (к-во строк): ');
    ReadLn(m);
  until ((n > 0) and (m > 0));
 
  // Задаем начальные размеры массивов:
  SetLength(a, n, m);
  SetLength(b, 0);
  SetLength(c, 0);
  k := 0;
  q := 0;
 
  // Ввод массива:
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
    begin
      Write('Введите a[', i + 1, ',', j + 1, ']: ');
      Read(a[i, j]);
      if (a[i, j] mod 2 = 0) then // Четный
      begin
        Inc(k);
        SetLength(b, k);
        b[k-1] := a[i, j];
      end
      else // Нечетный
      begin
        Inc(q);
        SetLength(c, q);
        c[q-1] := a[i, j];
      end;
    end;
 
  // Вывод массивов
  WriteLn('Содержимое массива B: ');
  for i := 0 to k - 1 do
  begin
    Write(b[i], '; ');
  end;
 
  WriteLn;
  WriteLn('Содержимое массива C: ');
  for i := 0 to q - 1 do
  begin
    Write(c[i], '; ');
  end;
 
  ReadLn;
  ReadLn;
 
end.