Найти максимальное число, присвоить его значение последнему элементу массива, вместо максимального числа записать –I

var
n,i,nom:integer;
max:real;
mass:array[1..50] of real;
begin
writeln('Введите кол-во элементов массива');
readln(n);
for i:=1 to n do
begin
write('mass[',i,']=');
readln(mass[i]);
end;
for i:=1 to n do
max:=mass[1];
nom:=1;
for i:=2 to n do
if(mass[i]>max)
then
max:=mass[i];
nom:=i;
end;
mass[n]:=max;
for i:=1 to n do
writeln('mass[',i,']=',b[i]:7:3);
readln

uses crt;
var
   n,i,num:integer;
   max:integer;
   mass:array[1..50] of integer;
   
BEGIN
     writeln('Введите кол-во элементов массива');
     readln(n);
     
     for i:=1 to n do
     begin
          write('mass[',i,']=');
          readln(mass[i]);
     end;
     clrscr;
     writeln('Исходный массив :');
     for i:=1 to n do write(mass[i]:3);
     
     writeln;
     
     max:=mass[1];
     
     for i:= 1 to n do
         if max < mass[i]
            then begin
                     max:= mass[i];
                     num:= i;
                 end;
                 
     mass[n]:= max;
     
     writeln('максимальный элемент массива :',max);
     
     writeln('индекс максимального элемента массива :',num);
     
     mass[num]:= -1;
     
     
     writeln;
     write('Полученный массив :');
     
     for i:=1 to n do write(mass[i]:3);
     
 
END.