Дана процедура упорядочивания (в описании), сделайте так, чтобы элементы вводились пользователем, а не случайным образом

Uses crt;
Var A:array[1..100] of integer; i,n:integer;
Procedure Upor(Var A:array[1..100] of integer; n:integer);{описание процедуры}
 Var c,j:integer;{описание локальных переменных}
  Begin
   For i:=0 to n-1 do
    For j:=i+1 to n do
     If A[i]>A[j] then
      Begin
       c:=A[i]; A[i]:=A[j]; A[j]:=c;{упорядочивание массива}
      End;
   For i:=0 to n-1 do A[i]:=A[i+1];{сдвигаем элементы на позицию влево}
   A[n]:=0;
 End;
Begin
ClrScr; Write('n='); Readln(n);{ввод размера массива}
Randomize;
For i:=1 to n do
 Begin
  A[i]:=random(51); Write(A[i]:4);{генерация и вывод элементов массива}
 End;
Upor(A,n); Writeln;{вызов процедуры}
For i:=1 to n do Write(A[i]:4);{вывод результата}
Readln;
End.

For i:=1 to n do begin
readln(a[i]);Write(A[i]:4)
end;