обработка последовательностей значений., задачка Опции

[Valkirie]

Help !

Дана последовательность чисел ai. Построить новую последовательность bi, где элемент bi равен максимальному из элементов от a1 до ai.

[APAL]

Описать можно и даже нужно массивом.

Код

Const N=10;
Var a,b : array [1..N] of Integer;