Создать массив, элементами которого являются произведение A (i) на максимальный его элемент

program hhh;
Uses crt;
 Var x,y:array [1..100] of integer;
     i,j,n,max:integer;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
Max:=x[1];
for i:=1 to n do
  if x[i]>=max then begin
                    max:=x[i];
                    j:=i;
                    end;
Writeln (' Maxim element = ',max, ' stoit na ',j,'-oi pozicii');
Writeln;
writeln ('OTVET ');
 for i:=1 to n do
  y[i]:=x[i]*max;
 for i:=1 to n do
 write (y[i],' ');
Readln
end.

writeln ('OTVET ');
for i:=1 to n do
 begin 
  y[i]:=x[i]*max;
  write (y[i],' ');
 end;