Помогите плиз с паскалем!

Задача № 2

{ Одномерный массив Mas, содержащий 12 элементов,
заполнен случайными числами от 1 до 50.
Вывести на «чистый» экран элементы массива,
наибольший и наименьший элементы, их индексы и сумму.
Поменять местами элементы с чётными и нечётными индексами
и вывести на экран изменённый}
Const N = 12;
VAR D:ARRAY[1..N] OF INTEGER;
imin,imax, temp, I,MAX,MIN, sum:INTEGER;
BEGIN

RANDOMIZE;

FOR I:=1 TO N DO begin
D [ I]:=RANDOM(50)+1;
WRITE(D [ i]:5);
end;
MAX:=D[1];
MIN:=D [ 1];
Imin := 1;
Imax := 1;
FOR I:=2 TO N DO begin
IF D [ I]<min>MAX THEN begin
MAX:=D [ I];
Imax := i;
end;
end;
WriteLn;
WriteLn('Min = ', min, ' Imin = ', Imin);
WriteLn('Max = ', max, ' Imax = ', Imax);
sum := min + max;
Writeln('min + max =', sum);

i := 1;
While i < N do begin
temp := D [ i];
D [ i] := D [ i+1];
D [ i+1] := temp;

i := i + 2;
end;

FOR I:=1 TO N DO begin
WRITE(D [ I]:5);
end;

END.

Задача № 3

Const N = 12;
VAR D:ARRAY[1..N] OF INTEGER;
i, kol :INTEGER;
BEGIN

RANDOMIZE;

FOR I:=1 TO N DO begin
D [ I]:=RANDOM(101)-50;
WRITE(D [ i]:5);
end;
writeln;

i := 2;
While i < N do begin
if (D[ i -1] < D[ i]) and (D[ i] > D[ i+1]) then
begin
kol := kol + 1;
writeln('Индекс локального максимума ', i);
end;
i := i + 1;
end;

writeln('Локальный максимумов ', kol);

END.

а я за бесплатно такую фигню тоже делать не буду. Задачки прям из учебника бери и списывай

300 WMR - и забирай.

сам сейчас сижу и мучаюсь сэтими массивами

самой что ль трудно подумать? решение ей тут подавай!

Сергей

Я за 150 сделаю ;)