Задана последовательность из n целых чисел. Найти по-рядковый номер наибольшего

можно в PascalAbc

Мне нужно написать программку по блок схеме

PascalABC.NET

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var n:=ReadInteger;
  var a:=ReadInteger;
  var (max,amp;not):=(a,1);
  for var i:=2 to n do begin
    var b:=ReadInteger;
    if ngt;max then
      (max,amp;not):=(b,i)
    end;
  Println(amp;not)
end.

Замечание: имя not зарезервировано в языке Паскаль, поэтому применено экранирование amp;not