Опишите универсальную функцию MaxNum(A, N) целого типа, находящую номер
максимального элемента вещественного массива А размером N. Поместите функцию в
модуль. Разработайте тестирующую программу, где с этой функции находятся
номера максимальных элементов массивов A, B, C размера NA, NB, NC соответственно.
Массивы можно задать, используя генератор случайной величины.

Прочитав текст, можно легко понять, что проще всего "зацепиться" за его фрагмент "я учился на 12 и 11". Кроме того, нигде не встречается цифр, больших двойки, следовательно основание системы р может быть 3 и более.
Допустим, что система оценок была пятибалльной.
Пусть p=3, тогда 12(3)=3+2=5, 11(3)=4 и это похоже на реальные числа.
При р=4 получаем 12(4)=6 и это уже нарушает наше допущение о пятибалльной системе.
Но посмотрим, что даст предположение р=3.
12(3) лет - это 5.
122 года - это 3²+2×3+2 = 17 лет - нормальный возраст для поступления в вуз.
21(3) год - это 3×2+1 = 7 лет - вполне допустимый срок для начала преподавания.
220(3) лет = 2×3²+2×3 = 24 года - путешествие было не коротким...
10011(3) лет = 3⁴+3+1 = 85 лет - вполне почтенный возраст.

Var a: array [1..10] of integer;
i,max:integer;
begin
for i:=1 to 10 do
readln a[i];
max:=a[1];
for i:=2 to 10 do
if a[i]> max then max:=a[i];
for i:=1 to 10 do begin
if a[i]>0 then a[i]:=max;
if a[i] >0 then a[i]:=i;
end;
for i:=1 to 10 do 
writeln( a[i]);
end.
 1. Заполняем массив из 10 элементов
2 Считаем условно что первый элемент максимальный
3 В цикле начиная со второго элемента находим максимальный элемент
4 Осуществляем преобразования в цикле с учётом условия
5 Раз у нас задача на замену то осуществляем вывод массива чтобы просмотреть его элементы