Заполнить массив Y элементами массива X, находящимися после его наибольшего значения

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] gt; 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.