вставка в массив

[Ananim-Pbl6ak]

Утроить все числа, стоящие между максимальным и минимальным элементами последовательности неповторяющихся целых. Утроить это напмсать три раза.
вот пример:
[/CODE]Program InsertZero;
{Вставка 0 после каждого отрицательного числа}
Type
TVector=Array[1..40] of Integer;
Var
Vector:TVector;
Num,NumBeg,I,J:Byte;
Begin
Writeln('Введите не более 20 целых чисел');
Writeln('Конец ввода по ENTER');
Num:=0; {текущее количество элементов в массиве}
While not EOLN do
begin
Inc(Num);
Read(Vector[Num]);
end;
Readln;
NumBeg:=Num; {запомнить исходное число элементов}

I:=0; {I - индекс проверяемого элемента массива}
Repeat
Inc(I);
If Vector[I]<0 {если I-ый элемент - отрицательное число,}
then {то выполнить действия по вставке 0}
begin
For J:=Num downto I+1 do {сдвинуть элементы с }
Vector[J+1]:=Vector[J];{последнего до I-го вправо}
Vector[I+1]:=0; {вставить на I+1-ое место 0}
Inc(Num); {увеличить количество элементов массива}
end;
Until I=Num; {закончить, если проверены все элементы}
{печать результата}
If NumBeg<>Num
then
begin
Writeln('Массив после вставки',Num-NumBeg,'нулей');
For I:=1 to Num do
Write(Vector[I],' ');
Writeln;
end
else
Writeln('Отрицательных чисел нет. Массив не изменен');
Readln
End.
[/CODE]