Sorting dalam Pascal dengan Sistem Buble dan Selection versi 2

mungkin temen2 sudah banyak yang tahu tentang ini,jadi untuk yang udah pada jago silahkan di lewati az posting ini..
ok langsung az kita mulai.buka program pascal u dan copas code dibawah ini :

code :
program pengurutan;
uses wincrt;
var
angka: array[1..1000] of integer;
k,l,m,n,o,i,a, temp: integer;
Lg : Char ;
begin
Repeat
Clrscr;
write('masukkan angka yang mau di urutkan brow');
writeln(' ');
write('=======================================');
writeln(' ');
write('----------------------------------------');

writeln('');
write('--==created by maz dopunk==---');
writeln('');
writeln(' ');
{Mengisi array}
write('masukkana angka 1:');readln(k);
write('masukkana angka 2:');readln(l);
write('masukkana angka 3:');readln(m);
write('masukkana angka 4:');readln(n);
write('masukkana angka 5:');readln(o);
angka[1] := k;
angka[2] := l;
angka[3] := m;
angka[4] := n;
angka[5] := o;

{Tampilkan data sebelum diurutkan}
writeln('Sebelum diurutkan : ');
for i:=1 to 5 do
begin
writeln('angka ke-', i, ' : ', angka[i]);
end;

{pengurutandengan buble}
for i:=1 to 4 do
begin
for a:=i+1 to 5 do
begin
if(angka[a] < angka[i]) then
begin
temp := angka[a];
angka[a] := angka[i];
angka[i] := temp;
end;
end;
end;

{Tampilkan data setelah diurutkan dengan seleksi}
writeln('Setelah diurutkan menggunakan seleksi : ');
for i:=1 to 5 do
begin
writeln('angka ke-', i, ' : ', angka[i]);

end;
{pengurutan dengan buble}
for i:= 1 to 4 do
for a:=1 to 5-i do
begin
if (angka[a]>angka[a+1]) then
begin
temp := angka[a];
angka[a] := angka[i];
angka[i] := temp;
end;
end;

{tampilkan data setelah di urutkan dengan buble}
writeln('setelah angka di urutkan menggunakan buble : ');
for i:=1 to 5 do
begin
writeln('angka ke-', i, ' : ', angka[i]);
end;
Writeln;
Write('Mau Coba Lagi? [Y/T]: ');Lg:=Upcase(Readkey);
Until Lg<>'Y';

end.

jika kalian males ngetik atau copas silahkan di ambil langsung di sini