Впорядкувати три довільних числа в порядку зростання в паскалі

Const nx=20;var A:array[1..nx] of integer; i,j,n,d:integer;begin
for i:=1 to 3 do begin
writeln('Введите число');readln(A[i]);end;
for j:=1 to 3 do begin
for i:=2 to 3 do begin
if A[i-1]> A[i] then begin 
d:= A[i-1]; A[i-1]:= A[i];A[i]:=d;end;
end;end;writeln;
for i:=1 to 3 do
writeln(A[i]);end.