Найти максимальный элемент и его номер. В 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 doif mas[i] > max_num then beginmax_index: =i; max_num: =mas[i]; end; ищем максимальное число и его позицию