Дан массив А1,….,A16. Если индекс Аmax меньше 10, то замените все предшествующие элементы на А2, иначе разделите все элементы на 3.- Pascal(Паскаль)

var a: array[1..16] of real;
max,i: integer;
begin
for i:=1 to 16 do begin
   write('A[',i,']='); readln(a[i]);
end;
max:=1; 
for i:=2 to 16 do 
   if a[max]<a[i] then max:=i;
if max<10 then 
   for i:=1 to max-1 do 
       a[i]:=a[2]
 else 
   for i:=1 to 16 do a[i]:=a[i]/3;
writeln('max=',max);
for i:=1 to 16 do 
    writeln('A[',i,']=',a[i]:0:4);
readln;
end.