динамический массив в Паскаль

[LastBreath]

Вставить элемент с нулевым значением перед минимальным и после максимального элемента массива.

Помогите пожалуйста справиться с задачкой...

И ещё вот такая :

Перед каждым положительным элементом массива вставить элемент, равный сумме элементов массива.

Очень нужны, помогите хотя бы с одной(желательно с первой), а вторую, возможно, получится сделать по аналогии...
люди добрые и умные(!) откликнитесь т.т

[Z1000000]

procedure TForm1.Button4Click(Sender: TObject);
var
 myAr : array[0..100] of Integer ;
 i : Integer ;
 lenAr,min,max : Integer ;
 maxIndex,minIndex : Integer ;
begin
lenAr := 10;
Randomize;
for i := 0 to lenAr-1 do myAr[i] := Random(65536);

// найти минимальный и максимальный элементы
min := 65535 ;
max := 0;
for i := 0 to lenAr-1 do
 begin
 if myAr[i] < min then begin min := myAr[i]; minIndex := i; end ;
 end ;
for i := lenAr-1 downto minIndex do myAr[i+1]:=myAr[i];
myAr[minIndex] := 0;
for i := 0 to lenAr do
 begin
 if myAr[i] > max then begin max := myAr[i]; maxIndex := i; end ;
 end ;
for i := lenAr downto maxIndex+1 do myAr[i+1]:=myAr[i];
myAr[maxIndex+1] := 0;
end;

[LastBreath]

ого, спасибо))но мне бы попроще...мы сейчас только начали изучать, пишем проги в среде Delphi, но на элементарном Паскале... и как бы в этой задаче не предусмотрены процедуры, с ними, конечно, проще, но они по программе учебной чуть позже)))
но, z1000000, спасибо! просто не очень понятно (Sender: TObject) - вот это, TObject пока не было такого)и в конце немного непонятно....
объясните простому смертному на простом языке...))

[Grag]

А если не секрет, вот это что такое???

for i := 0 to lenAr-1 do myAr[i] := Random(65536);

Да и что-то динамическим массивом тут не пахнет, ну никак...

[LastBreath]

А как быть то должно?
насчет динамического массива...это учитель посоветовал, может и без него можно, но с ним желательно.
=(

[Grag]

Функция Random(Range:word):word;
Я полагаю, что этим все сказано...

[LastBreath]

...да я могу и в ручную, мне сама программа нужна)))

Теперь только вторая нужна..)

[Z1000000]

А какой Паскаль поддерживает динамические массивы ?
Они только с Delphi 4 введены.
Может динамические списки имелось в виду.

[Grag]

Совершенно верно, Паскаль не поддерживает "динамические массивы" как тип данных. Но, с помощью указателей это легко организуется как структура данных...

Как встроенный тип данных Паскаль не поддерживает "динамические массивы". Но динамический массив можно организовать как структуру данных с применением указателей.

[Anatole]

А какой Паскаль поддерживает динамические массивы ?

Когда в Паскале говорилось о динамических массивах, то имелось в ввиду, что они размещены в диннамической памяти. Делфи просто делает работу с такими данными несколько проще. Но поскольку

пишем проги в среде Delphi

то можно поступать так:
в разделе описений пишем переменных:

myAr : array of Integer ;

вначале программы ставим

SetLength(myAr,n);

где n - требуемая размерность массива.
и в конце програмы ставим

SetLength(myAr,0);

.