procedure Sort;
var
  i, j, k: Integer;
begin
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if a[i] > a[j] then
        Swap(a[i], a[j]);
end;