надо бы подправить программу))

[Fylhtq]

Ввести последовательность неповторяющихся чисел. Сформировать вектор из чисел, стоящих до Max, и вектор из чисел, стоящих после Min

программа не работает что то помогите плизз подправте
Program MaxMin;
Const
Dim=10;
var x,y,z:array[1..Dim] of integer;
min,max,imin,imax,i,n,kz,k,ky:integ er;
begin
writeln('Введите количество <= ',Dim,': ');
readln(n);
writeln ('Введите неповторяющиеся целые числа* ');
readln;
for i:=1 to n do
read(x[i]);
readln;
min:=x[1];
imin:=1;
max:=x[1];
imax:=1;
for i:=2 to n do
begin
if x[i]>max
then
begin
max:=x[i];
imax:=i;
end
else
if x[i]<min
then
begin
min:=x[i];
imin:=i;
end;
end;
for i:=1 to n do
k:=1;
begin
y[ky]:=x[i];
ky:=k+1;
end;
k:=1;
for i:=imin to n do
begin
z[kz]:=x[i];
kz:=k+1;
end;
writeln('----------------');
writeln('Вектор из чисел:');
for i:=1 to n do
write ( x[i]:6);
writeln;
writeln('----------------');
writeln('Вектор из чисел стоящих до максимума:');
for i:=1 to ky do
write ( y[i]:6);
writeln;
writeln('----------------');
writeln('Вектор из чисел стоящих после минимума:');
for i:=1 to kz do
write ( z[i]:6);
writeln;
writeln('----------------');
readln;
end.

[Stilet]

Программу запустил - отработала на ура...

[Fylhtq]

я знаю что она работает только неправильно

[OCTAGRAM]

На каких примерах неправильно?