Найти максимальный элемент и его номер. В Pascal. Тема массивы ;)

const n = 10; var i:integer; mas : array[1..n] of integer; max_num, max_index: integer; begin writeln('введите элементы массива'); for i:=1 to n do readln(mas[i]); for i := 2 to n do if mas[i] > max_num then begin max_index := i; max_num := mas[i]; end; writeln('Максимальное число ',max_num,' находится на позиции ',max_index); end.         Объяснение -  константы: n- это сколько чисел будет в твоём массиве max_num - максимальное число  max_index - позиция числа   Функции : for i:=1 to n do readln(mas[i]); - вводим числа в массив     for i := 2 to n do if mas[i] > max_num then begin max_index := i; max_num := mas[i]; end;   ищем максимальное число и его позицию