к сожалению, вы решаете слишком круто, учительница не поверит
мы в классе решаем задачи вот так:
Program Massiv;
const n = 8;
var i:integer;
b:array[1..n] of real;
maxb:real;
nmax:integer;
Begin
for i:=1 to n do
begin
write('b[',i:2,']=');
readln(b[i]);
end;
maxb:=b[1];
nmax:=1;
for i:=2 to n do
if b[i]>maxb then
begin
maxb:=b[i];
nmax:=i;
end;
writeln(maxb);
writeln(nmax);
for i:=1 to n do
begin
b[i]:=b[i]/maxb;
writeln('b[',i:2,']=',b[i]);
end;
end.