Процедуры и функции в паскал

[neomax38]

Помогите сделать

Даны векторы A[10], B[18]. У каждого вектора, компоненты которого не образуют неубывающей последовательности, отрицательные компоненты заменить максимальным элементом.

[Hacker19_90]

Ну насчёт отрицательных компонентов

procedure GetMaxSwap (var M: Massiv; count: integer);
var
    i: integer;
    max: integer;
begin
    max := M[1];
    for i := 1 to count do
        if M[i] > max then max := M[i];
    for i := 1 to count do
        if M[i] < 0 then M[i] := max;
end;

А вот насчёт последовательности я не понял! Мож обьяснишь?