Дан массив, состоящий из 8 случайных целых чисел -5 до 10, Все его элементы уменьшить на число (а)( число "а" введите с клавиатуры)

vara:integer;b:array [1..8] of integer;beginreadln(a);for i:=1 to 8 do b[i]:=random(16)-5;for i:=1 to 8 do b[i]:=b[i]-a;for i:=1 to 8 do write(b[i],' ');end.