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.

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