Pengurutan Data Dengan Pascal

uses wincrt;
var A : array [0..99] of integer ;
i,j,N,temp:integer;
pilih:char;
begin
write (' Berapa masukan anda (maks 100)='); readln(N);
for j:=0 to (N-1) do
begin
write(' Data yang ke',j+1,'=');
readln(A[j]);
end;
write('hasil ditampilkan secara ascending atau discending(a/d)?');readln(pilih);
if (pilih='a') OR (pilih='A')then
begin
for i:=1 to (N-1) do
begin
for j:=i downto 1 do
begin
if A[j] < A[j-1] then
begin
temp:=A[j];
A[j]:=A[j-1];
A[j-1]:=temp;
end;
end;
end;
writeln('Hasil setelah pengurutan adalah');
for j:=0 to (N-1) do
begin
writeln(A[j]);
end;
end;
if (pilih= 'd') or (pilih='D') then
begin
for i:=1 to (N-1) do
begin
for j:=i downto 1 do
begin
if A[j] >A[j-1] then
begin
temp:=A[j];
A[j]:=A[j-1];
A[j-1]:=temp;
end;
end;
end;
writeln ('Hasil setelah pengurutan adalah');
for j:=0 to(N-1) do
begin
writeln(A[j]);
end;
end;
end.