Задано массив А(n). Получить последовательность чисел A(2) — A(1); A(3) — A(1); …; A(n) — A(1) и упорядочить ее по возрастанию — Basic(Бейсик)

INPUT n
DIM a(n)
FOR i=1 TO n
INPUT a(i)
NEXT
FOR i=1 TO n
PRINT a(i);" ";
NEXT
FOR i=2 TO n
a(i)=a(i)-a(1) 
NEXT
FOR i=1 TO n
FOR j=2 TO n
IF a(i)<a(i-1) THEN SWAP a(i),a(i-1)
NEXT
NEXT
PRINT
FOR i=1 TO n
PRINT a(i);" ";
NEXT