Algoritma - Mengurutkan Bilangan Acak (Ascending)

Mengurutkan Bilangan, dari bilangan yang diinput secara acak.

Program Ascending;
uses crt;
var
jdata, a, i, r, j, jgenap : integer;
genap, max, data : array [1..100] of integer;
begin
clrscr;
write ('Jumlah data yang akan dimasukkan :');readln(jdata);
for a := 1 to jdata do
begin
write ('Masukkan angka ke-',a,' :');readln (data[a]);
end;
for i := 1 to (jdata-1) do
begin

for j := (i+1) to jdata do
begin
if data[i] > data[j] then
begin
r := data[i];
data[i] := data[j];
data[j] := r;
end;
end;
end;
writeln ('Hasil pengurutan bilangan GENAP secara ascending');
for a := 1 to jdata do
begin
if (data[a] mod 2 = 0) then
write (data[a]:4);

end;

readln;

end.

Nb:
Pada Program diatas output yang dihasilkan hanya bilangan genap yang telah diurutkan secara ascending. jika ingin menmpilkan bilangna ganjil maka pada kode "if (data[a] mod 2 = 0) then" bisa di gantikan dengan "if (data[a] mod 2 = 1) then".
Namun jika tidak ada syarat maka hilangkan saja kondisinya..

Thanks.. Just NewBie