Сдвинуть чётные элементы массива в начало, не изменяя их порядка

program asdasdq;
 
uses
  crt;
 
var
  mas: array[1..100] of integer;
  max, i, n, k: integer;
 
begin
  write('Enter number = ');readln(n);
  Write('Array start = ');
  for i := 1 to n do 
  begin
    mas[i] := random(10) - 5;
    Write(mas[i], ' '); end;
  max := mas[1];writeln;
  Write('Array finish par/nepar = ');
  for i := 1 to n do
    // parnie elementy
    if ((mas[i] mod 2) = 0 ) then write(mas[i], ' ');
  
  for i := 1 to n do
    // neparnie elementy
    if ((mas[i] mod 2) <> 0 ) then write(mas[i], ' ');
  
  for i := 1 to n do
    if (max < mas[i]) then begin max := mas[i];k := i; end;writeln;
  Writeln('MAX = ', max, '  mesto = ', k);
  Write('Array delete max = ');
  for i := 1 to n do
    if (i <> k) then write(mas[i], ' ');
  writeln;
end.

uses crt;
 
var
  mas: array[1..100] of integer;
  i, j, n, k: integer;
  t : Integer;
 
begin
  randomize;
  write('Enter number = ');readln(n);
 
  Write('Array start = ');
  for i := 1 to n do
  begin
    mas[i] := random(20) - 5;
    Write(mas[i], ' '); end;
  writeln;
 
  Write('Array finish par/nepar = '); 
 
  { Обычная сортировка "пузырьком", меняем местами элементы только если
     тот, что справа - четный, а тот, что слева - нечетный, в результате все четные
     уходят влево (в начало массива), а все нечетные - вправо (в его конец) }
  for i := 1 to n do
    for j := n downto i + 1 do
      if (abs(mas[j]) mod 2 = 0) and (abs(mas[j - 1]) mod 2 = 1)  then
      begin
        t := mas[j];
        mas[j] := mas[j - 1];
        mas[j - 1] := t;
      end;
 
  for i := 1 to n do
  begin
    Write(mas[i], ' ');
  end;
  writeln;
 
end.