Решите задачку

[Fanny123]

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

[IT-man]

// считай что сэкономил

uses crt;
var x,y,z:array[1..100] of integer;
 min,max,imin,imax,i,n,k:integer;
 begin
 clrscr;
 writeln('vvedite kol-vo:');
 readln(n);
 for i:=1 to n do begin
 writeln('vvedite ',i,' element');
 readln(x[i]);
 end;
 min:=x[1];
 imin:=1;
 max:=x[1];
 imax:=1;
 for i:=1 to n do begin
 if x[i]>max then begin
  max:=x[i];
  imax:=i;
 end;
  if x[i]<min then begin
  min:=x[i];
  imin:=i;
 end;
 end;
 for i:=1 to imax do 
 y[i]:=x[i];
 k:=1;
 for i:=imin to n do begin
  z[k]:=x[i];
  k:=k+1;
 end;
 writeln('----------------');
 writeln('ish vektor:');
 for i:=1 to n do 
 write ( x[i]:6);
 writeln;
 writeln('----------------');
 writeln('1 vektor:');
 for i:=1 to imax do 
 write ( y[i]:6);
 writeln;
 writeln('----------------');
 writeln('2 vektor:');
 for i:=1 to k-1 do
 write ( z[i]:6);
 writeln;
 writeln('----------------');
  readln;
end.