Заполнить массив 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.