Определение максимума массива и его индекса - Pascal

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

Ребят помогите написать задачу по Паскалю. Буду очень признателен. Заранее спасибо) Определение максимума массива и его индекса. Задача: Определить MAX элемент целочисленного массива А длинной N и его номер. Считать, что такой элемент есть и он единственный.

Решение задачи: «Определение максимума массива и его индекса»

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

{$MODE TP}
var
    a: Array[Byte] Of ShortInt;
    i, n, iMax: Byte;
begin
    repeat
        Write('Input N(>0)=');
        ReadLn(n);
    until (n > 0);
    iMax := 0; Randomize();
    Write('A:');
    for i := 0 to n - 1 do
    begin
        a[i] := Random(199) - 99;
        Write(a[i]:4);
        if (a[i] > a[iMax])
        then
            iMax := i;
    end;
    WriteLn;
    WriteLn('Max: a[', iMax + 1, ']=', a[iMax]);
end.

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

Объявляется переменная массива a типа Array[Byte] of ShortInt, которая будет содержать байтовые значения.
Объявляются переменные i, n и iMax типа Byte.
Создается цикл ввода, который продолжается, пока значение переменной n не будет больше нуля.
Присваивается начальное значение переменной iMax равное 0.
Используется функция Randomize(), чтобы инициировать генерацию случайных чисел.
Выводится сообщение A:.
Создается цикл от 0 до n - 1.
Внутри цикла каждому элементу массива a[i] присваивается случайное значение, после чего это значение выводится на экран.
Проверяется, больше ли a[i] чем a[iMax]. Если это так, то iMax присваивается значение i.
Завершается вывод строки.
Выводится сообщение о максимальном значении массива a и его индексе.