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

[DragonIce]

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

10. Найти наибольшее и наименьшее значения и их индексы в массиве D, n≤25. Вычислить их среднее значение и произведение элементов, значения которых превышают среднее значение. Вывести массив, наименьшее, наибольшее значения и их индексы и произведение.

10. Изменяя X от заданного начального значения с заданным шагом H вычислить и поместить в массив F 20 значений разности функции (e^-x) sin(6x) и её значением в точке первого локального минимума.

Буду очень признателен!

 

[DragonIce]

Вот, наброски.. Они ужасны, правда.

program Bliiin;

{$APPTYPE CONSOLE}

uses
SysUtils,
Math;

var
a:array[1..25] of integer;
i,max,min,Imin,Imax:integer;
srar:real;



begin
Randomize;
for i:=1 to 25 do
a:=Random(100)-15;
max:=a;
min:=a;
writeln ('massiv:');
for i:=1 to 25 do
write(a:4);
writeln;
for i:=1 to 25 do
begin
if a>max then
begin
Imax:= a; max:=i;
end;
writeln('Max:=',max,'nomer:',Imax);
writeln('Min:=',min,'nomer:',Imin);
for i:= 1 to 25 do
begin
end;
for i:=1 to a do
begin
if a>max then
begin
max:=a;
imax:=i;
end;
if a<min then
begin
min:=a;
Imin:=i;
end;
writeln('Max:=',max,'nomer:',Imax);
writeln('Min:=',min,'nomer:',Imin);

srar:=(a)/2;
if min>srar then min:=srar;
if max<srar then max:=srar;
writeln ('sr znach',i,srar:8:2);
end.