Дан массив a[1..n] из целых чисел. Вывести такой массив, в котором идут сначала четные, а потом нечетные элементы из массива a — Pascal(Паскаль)

var
  a: array [1 .. 100] of integer;
  i, max, n, k: integer;
  b: array [1 .. 100] of integer;

begin
  n := 7;
  k := 1;
  for i := 1 to n do
    readln(a[i]);
  for i := 1 to n do
    if (a[i] mod 2) = 0 then
    begin
      b[i] := a[i];
      k := k + 1;
    end;
  k := k + 1;
  for i := 1 to n do
    if (a[i] mod 2) <> 0 then
    begin
      b[i + k] := a[i];
    end;
  for i := 1 to 100 do
    if b[i] <> 0 then
      write(b[i]);

end.