Заполнить одномерный массив а из 10 элементов случайными числами из отрезка [-20,50].

Вот решение но почему 1-4 классы.
var mas:array of integer;
i,n:integer;
begin
readln(n);
setlength(mas,n);
for i:=0 to n-1 do begin
mas[i]:=random(71)-20;
write(mas[i],' ');
end;
end.