Язык Pascal. Программирование для начинающих

{задание массива из N чисел случайными числами оператором RANDOM}
for i:=1 to n do begin
mas[i]:=random(10);
write(mas[i]:4);
end;
sum:=0;
writeln; {переменная подсчитывающая сумму в случае выполнения условия, что сам элемент массива меньше своего порядкового номера}
for i:=1 to n do 
if mas[i] < i then sum:=sum+mas[i];
write('сумма элементов массива меньших своего порядкового номера равна ', sum:5);
END.