Переписать элементы, находящиеся после максимального, в новый массив - Turbo Pascal

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

Ввести массив А. Элементы, находящиеся после максимального, переписать в новый массив В, если это возможно. Массив В отпечатать. Если создание В невозможно, вывести об этом сообщение. Прошу помочь. Написал начало, а вот дальше не пойму как сделать.

Var a array[1..20] of integer;
Min, n, i:integer;
Begin
Writeln('vvidite n');
Readln(n);
Writeln('vvedite elementy massiva');
For i to n do
Begin
Readln(a[i]);
Max:=-999;
If a [i]> max then
Begin
Max:=a[i];
End;

Решение задачи: «Переписать элементы, находящиеся после максимального, в новый массив»

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

{Ввести массив А. Элементы, находящиеся после максимального, переписать в новый 
массив В, если это возможно. Массив В отпечатать. Если создание В невозможно, 
вывести об этом сообщение.}
const
  n_max = 20;
 
var
  a, b: array[1..n_max] of integer;
  j, ki, Max, n, i: integer;
 
begin
  Write('vvidite n: ');
  Readln(n);
  Writeln('vvedite elementy massiva');
  Max := -MaxInt;
  for i := 1 to n do
  begin
    Readln(a[i]);
    if a[i] > max then
    begin
      Max := a[i];
      ki := i;
    end;
  end;
  writeln('Max: ', max, ' in position: ', ki);
  if ki = n then
    writeln('Невозможно')
  else
  begin
    j := 1;    
    for i := ki + 1 to n do
    begin
      b[j] := a[i];
      inc(j);      
    end;
    for i := 1 to j - 1 do
      write(b[i]:4);    
  end;
end.

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

Вводится массив А, содержащий n элементов.
Переменная Max инициализируется как наименьшее возможное значение типа integer.
Цикл for проходит n раз. На каждой итерации считывается элемент массива А и сравнивается с максимальным значением.
Если текущий элемент больше максимального, то обновляется значение переменной Max и переменной ki, которая указывает на индекс максимального элемента.
После завершения цикла выводится значение переменной Max и значение переменной ki. Если ki равно n, то выводится сообщение о невозможности создания нового массива.
Если ki не равно n, то начинается следующий этап.
Создается новый массив b размером n.
Цикл for проходит от ki+1 до n. На каждой итерации копируется элемент массива А в соответствующий элемент массива b.
После завершения цикла выводится содержимое массива b.
Конец программы.