Shorting by Number

program Shortingbynumber;
uses wincrt;
const Nmaks = 100;
var
A: array [1..Nmaks] of integer;
I,j,N,temp : integer;
begin
writeln('write sum of input number :');readln(N);
for I:=1 to N do
begin
write('A[',i,'] =');readln(A[i]);
end;
for i:=1 to N do
for j:=i to N do
begin
if A[i]>A[j] then
begin
temp:=A[i];
A[i]:=A[j];
A[j]:=temp;

end;
end;
for i:=1 to n do
writeLN(A[I],' ');
end.

if we run the statement,we are get output like this :