Пусть в массиве A[20] заполнены первые K мест,где 1<=K<20. Требуется ввести новое значение в переменную B и вставить его в начало массива - Pascal(Паскаль)

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

begin
  n := 20;
  for i := 1 to n do
    readln(a[i]);
  writeln('введите B');
  readln(b);
  i := 1;
  For i := n Downto 1 Do
    a[i + 1] := a[i];
  a[1] := b;
  for i := 1 to n + 1 do
    write(a[i]);

end.