одномерный массив.Паскаль

[Nastya2406]

помогите пожалуйста. Дан одномерный массив,состоящий из n целых элементов.Преобразовать его таким образом,чтобы сначала распологались все положительные элементы,потом отрицательные.элементы равные 0 считать положительными.Порядок следования элементов должен сохраняться.заранее спасибо

[GetMax]

k:=10;
  Repeat
    Obmen:=False;
    For i:=1 to k-1 do
    If (Mas[i] < 0) and (Mas[i+1] >= 0) then
    Begin
      buf:=Mas[i];
      Mas[i]:=Mas[i+1];
      Mas[i+1]:=buf;
      Obmen:=True
    End;
    dec(k)
  Until Not Obmen;

[Nastya2406]

спасибо огромное

[Nastya2406]

а что такое dec?

[GetMax]

а что такое dec?

Функция, которая уменьшает значение переменной. Вместо нее можно смело писать k:=k-1

[Nastya2406]

спасибо за помощь))

[Вадим Мошев]

Сообщение от GetMax

Функция, которая уменьшает значение переменной. Вместо нее можно смело писать k:=k-1

Поправлю: это не функция, это процедура. Работает она быстрее, чем k:=k-1