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

var a:integer; b:array [1..8] of integer; begin readln(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.