Массив: Элементы, находящиеся после максимального, переписать в новый массив В, если это возможно. - Turbo Pascal

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

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

var i,j,n,m,max,min:integer;  
a:array[1..10,1..10] of integer;  
begin
writeln ('vvedite chislo n'); 
readln(n);  
writeln ('vvedite chislo m'); 
readln(m);  
writeln ('vvedite elementu massiva');  
for i:=1 to n do
begin
for j:=1 to m do
begin 
readln(a[i,j]);   
max:=a[1,1];  
if a[i,j] > max then
max:= a[i,j];
end;  
writeln('max=',max); 
end;
end.

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

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

const mn=50;
var
  a, i, k, m, n: Integer;
  b: array [1..mn] of Integer;
begin
  repeat Write('N [2..',mn,'] ='); ReadLn(n); until n in [2..mn];
  Write('Элементы: '); Read(m);
  for i:=2 to n do begin
    Read(a);
    if m<a then begin
      m:=a; k:=0;
    end else begin
      Inc(k); b[k]:=a;
    end;
  end;
  if k=0 then WriteLn('Максимальный элемент последний')
  else for i:=1 to k do Write(' ',b[i]);
end.

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

Константа mn и переменные a, i, k, m, n имеют заданные значения.
В цикле повторяется запрос на ввод числа от пользователя, пока это число не будет находиться в диапазоне от 2 до mn.
После ввода всех чисел выводится сообщение Максимальный элемент последний, если значение переменной k равно нулю.
Если значение переменной k не равно нулю, то выводится последовательность чисел из массива b, начиная с индекса k.