Дан массив, состоящий из 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.