Дан массив состоящий из 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 do Write(A[i],); readln;end.