Сортировка данных
Метод пузырька
for i:=1 to n-1 do begin
for j:=n-1 downto i do begin
if (A[j] > A[j+1]) then beginc:= A[j];
A[j]:= A[j+1];
A[j+1]:= c;end;
end;
Метод прямого выбора