Help сделайте задание , на подобе такого , переделайте чутка пожалуйста

var
  a: array[1..100] of integer;
  n, i, j, tmp: integer;

begin
  Write('Введите количество чисел:');
  Readln(n);
  for i := 1 to n do
  begin
    a[i] := 2 + random(99);
    if (a[i] mod 2 = 1) then
      inc(a[i]);
    write(a[i], ' ');
  end;
  Writeln();
  for i := 1 to n do
    for j := i to n do
      if (a[j] < a[i]) then
      begin
        tmp := a[i];
        a[i] := a[j];
        a[j] := tmp;
      end;
  for i := 1 to n do
    Write(a[i], ' ');
end.