percabangan pascal

uses wincrt;
var
ack: array [1..100] of integer;
i,x,n,sort: integer;

begin
clrscr;
for x:= 1 to n do
begin
writeln('input byk dta  : ');readln(n);
writeln('Bilangan [x]= '); read(ack[x]);
end;

for i:= 1 to n-1 do
for x:= i+1 to n do
begin
if(ack[i]) > (ack[x]) then
begin
sort:= ack [x];
ack [i]:= ack [x];
ack [x] := sort;
end;
end;

for x:= 1 to n do
begin
write(ack [x]);
end;
readln;
end.