Массив (одномерный)

[RUSSTUDENT]

Всем привет!
Задана программа:
Ввести последовательность неповторяющихся чисел. Сформировать вектор из чисел, стоящих до MAX, и вектор из чисел, стоящих после MIN.
Прогу написал, но не знаю как сформировать вектор (одномерный массив).
Помогите.

[ROD]

А прогу-то можно увидеть?

[RUSSTUDENT]

Вот она:
Program FormVector6;
const
dim=100;
type
tvector= array[1..dim] of integer;
var
v1, v2:tvector;
n1, nmax, nmin: integer;
max, min: real;
i:byte;
begin
writeln('Vvedite chislo elementov posledovatelnosti =<',dim,' ');
readln(n1);
writeln('Vvedite ',n1,' chisel');
for i:=1 to n1 do
begin
write('v1[',i,']=');
read(v1[i]);
end;
max:=v1[1];
nmax:=1;
min:=v1[1];
nmin:=1;
for i:=2 to n1 do
begin
if v1[i]<min then
begin min:=v1[i];
writeln('min =',v1[i]);
nmin:=i;
writeln('nmin =',i);
end;
if v1[i]>max then
begin max:=v1[i];
writeln('max =',v1[i]);
nmax:=i;
writeln('nmax =',i);
end;
end;
for i:=1 to nmax do
read(v1[i]);
for i:=nmin to n1 do
read(v1[i]);
readln
end.