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

[Valkirie]

Help !

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

[Rothmans]

Код

const i=100 {for example}

var a,b:array[1..i] of integer;
     m:integer;
      j:integer;
begin
   for j:=1 to i do a[j]:=random(1000); {init a}
   m:=a[1];
   for j:=1 to i do
      begin
         if a[j]>m then m:=a[j];
         b[j]:=m;
      end;
end.

Кажется незачем связываться с вводом/выводом, если только препод об этом не попросил. Исходя из условий, массив "a" дан.