Не могу понять где ошибка? - PascalABC.NET

Формулировка задачи:

const n = 10;
m = 5;
var i,j,k,l : integer;
A : array[1..n] of integer;
B : array[1..m] of integer;
begin
writeln('введите массив А');
for i:=1 to n do 
read(A[i]);
writeln('Введите массив B'); 
for i:=1 to m do
read(B[i]);
 
k:=n-1;
 
for i:=1 to m do
begin
j:=B[i];
 
for l:=j to k do
A[l]:=A[l+1];
k:=k-1;
 
for j:=1 to k do
write(A[j],' ');
writeln;
end; 
 
for i:=1 to k do
write(A[i], ' ');
end.

Решение задачи: «Не могу понять где ошибка?»

Листинг программы

const
  n = 10;
  m = 5;
 
var
  i, j, k, l: integer;
  A: array[1..n] of integer; // := (1,2,3,4,5,6,7,8,9,10);
  B: array[1..m] of integer; // := (1,2,3,4,5);
 
begin
  
  writeln('введите массив А');
  for i := 1 to n do 
    read(A[i]);
  writeln('Введите массив B'); 
  for i := 1 to m do
    read(B[i]);
  
  
  k := n;
  
  for i := 1 to m do
  begin
    j := B[i] - (n - k);
    
    
    for l := j to k - 1 do
      A[l] := A[l + 1];
    k := k - 1;
    
    for j := 1 to k do
      write(A[j], ' ');
    writeln;
  end; 
  
  for i := 1 to k do
    write(A[i], ' ');
end.

Объяснение кода листинга программы

В начале определены константы n = 10 и m = 5.
Далее объявлены переменные i, j, k, l типа integer и массивы A и B типа array[1..n] и array[1..m] соответственно.
В первой части кода пользователю предлагается ввести значения массива A, а затем массива B.
Во второй части кода используется цикл for для обхода элементов массива B.
Внутри цикла определяется переменная j, которая используется для индексации элементов массива A.
Используется вложенный цикл for для перемещения элементов массива A, начиная с элемента с индексом j до элемента с индексом k - 1.
Значение переменной k уменьшается на единицу после каждой итерации внешнего цикла.
После завершения внутреннего цикла выводится строка, состоящая из пробелов и элементов массива A с индексами от 1 до k.
После завершения внешнего цикла выводятся элементы массива A с индексами от 1 до k.