Дан массив состоящий из 8 элементов, отсортировать его по возрастанию

varA: array[1… 8] of integer; i,k,t: integer; beginfor i: =1 to 8 doReadln (A[i]); for k: =8 downto 2 dobegin for i: =1 to k-1 do begin if A[i+1] < A[i] then begin t: =A[i]; A[i]: =A[i+1]; A[i+1]: =t; end; end; end; for i: =1 to 8 doWrite (A[i],'); readln; end.