Cara Mengurutkan Data di pascal

Dapat tugas di smester 5 untuk mengurutkan data
sedikit kebingungan nyari program yang mudah pake apa ... sekilas ingat ketika smester 3 belajar pascal ..
al-hasil ternyata mudah_han pake pascal ..
kurang lebih coding'a spt ini

______

program urut;
uses wincrt;
const
N=5;
data: array [1..N] of integer = (2,4,5,3,1);
var
j,k,temp : integer;
begin
clrscr;
writeln ('Data sebelum diurutkan');
for j:=1 to N do begin
writeln('data[' ,j, ']= ',data [j]);
end;

for j:=1 to N-1 do begin
for k :=N downto j+1 do begin
if data[k] < data[k-1] then begin
temp := data[k];
data[k] := data[k-1];
data[k-1] :=temp;
end;
end;
end;
writeln;
writeln ('Data setelah diurutkan ');
for j:=1 to N do begin
writeln ('data[' ,j, '] = ',data[j]);
end;
writeln;
end.