В массиве из 10 элементов, элементы следующие за максимумом заменить на минимум — Pascal(Паскаль)

Program min_max;
Uses crt;
const n=10;
 var
     a,b:array [1..n] of integer;
     i,imax,min:integer;
begin
clrscr;
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (a[i]);
                  end;
Writeln ('Polycheny chisla ');
For i:=1 to n do write (a[i]:4);
imax:=1;
 for i:=1 to n do
   if a[i]>a[imax] then imax:=i;
writeln;
Writeln ('Nom maxim elementa ',imax);
Writeln ('maxim element ',a[imax]);
Min:=a[i];
 for i:=1 to n do
   if a[i]<min then min:=a[i];
writeln;
Writeln ('Minim element = ',min);
For i:=imax+1 to n do
                 a[i]:=min;
writeln ('Rezultat : ');
For i:=1 to n do write (a[i]:3);
Readln
end.