Сформируйте массив, содержащий 5 элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен увеличенному на заданное с клавиатуры число соответствующему элементу исходного массива. Выведите на экран оба массива. — Pascal(Паскаль)

uses crt;

const
  n = 5;

var
  a, b: array [1 .. n] of integer;
  i: byte;
  k: integer;

begin
  randomize;
  clrscr;
  writeln('исходный массив: ');
  for i := 1 to n do
  begin
    a[i] := random(19) - 9;
    write(a[i]:3);
  end;
  writeln;
  write('введите коэффициент изменения: ');
  readln(k);
  writeln('получившийся массив: ');
  for i := 1 to n do
  begin
    b[i] := a[i] + k;
    write(b[i]:3);
  end;

end.