Дан массив из N целых чисел.Написать программу,определяющую,максимальный элемент массива и его номер.

Мне почему - то кажется что в школах не учат петон

Pascal:a: array [1..10000] of integer;i, n, m: integer;beginreadln(n);for i := 1 to  n do  read(a[i]);m := 1;for i := 2 to n doif (a[i] > a[m])then m := i;writeln(a[m],' ',m);end.