ошибка!!!

[Fylhtq]

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


Program MaxMin;
Const
Dim=10;
var x,y,z:array[1..Dim] of integer;
min,max,imin,imax,i,n,k,kz,ky,o:int eger;
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;
{****} отсюда начинается ошибка , т.е прога неправильна дальше помогите плиззз

ky:=0;
for i:=imax to n do
begin

3y[ky]:=x[i];
end;
kz:=0;
for i:=imin to n do
begin
z[kz]:=x[i];
end;
{***}

writeln('----------------');
writeln('Вектор из чисел стоящих до максимума:');
if ky<=n
then
begin
for i:=1 to ky do
write ( y[i]:6);
writeln;
end
else
writeln ('Вектор не сформирован**');
readln;
writeln('----------------');
writeln('Вектор из чисел стоящих после минимума:');
if kz>=n
then
begin
for i:=1 to kz do
write ( z[i]:6);
writeln;
end
else
writeln ('Вектор не сформирован**');
writeln('----------------');
readln;
end.

[alex_fcsm]

Program MaxMin;
uses crt;
Const
Dim=10;
var x,y,z:array[1..Dim] of integer;
min,max,i,n:integer;
begin
clrscr;
writeln('Введите количество<= ',Dim,': ');
readln(n);
writeln ('Введите неповторяющиеся целые числа');
for i:=1 to n do
read(x[i]);
max:=1;
min:=1;
for i:=2 to n do
 if x[i]>x[max] then max:=i
    else if x[i]<x[min] then min:=i;
writeln('Max-------------');
for i:=1 to max-1 do
 begin
 y[i]:=x[i];
 write(y[i],' ');
 end;
writeln;
writeln('Min-------------');
for i:=min+1 to n do
 begin
 z[i-min]:=x[i];
 write(z[i-min],' ');
 end;
end.

[Fylhtq]

а если вектора не сформированы , что писать?

[alex_fcsm]

Векторы будут не сформированы если минимальный элемент - последний в последовательности а максимальный первый

if max=1 then ...... else
 for i:=1 to max-1 do
 begin
 y[i]:=x[i];
 write(y[i],' ');
 end;

if min=n then ....
 else
for i:=min+1 to n do
 begin
 z[i-min]:=x[i];
 write(z[i-min],' ');
 end;