Сортировка данных

Метод пузырька

for i:=1 to n-1 do begin

for j:=n-1 downto i do begin

if  (A[j] > A[j+1]) then begin
c:= A[j];

A[j]:= A[j+1];

A[j+1]:= c;
end;

end;

end;

Метод прямого выбора