Заполнить массив Y элементами массива X, находящимися после его максимального значения в X. 4 1 8 2 7 3 X 2 7 3 Y

var x: array[1..100] of integer;

y: integer;

ixmax, i, n: integer;

begin

writeln(\'Введите количество элементов массива x\');

readln(n);

writeln(\'Заполните массив x с клавиатуры\');

for i := 1 to n do readln(a[i]);

ixmax := 1;

for i := 2 to n do if a[i] > x[ixmax] then ixmax := i;

for i := ixmax to n do y[i] := x[xmax];

for i := 1 to (n - ixmax) do write(x[xmax]:4);

end.