Найти максимальный элемент и его номер. В 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;

ищем максимальное число и его позицию