Дан одномерный массив A размерности N. Найти сумму элементов, расположенных между максимальным и минимальным. Язык программирования VBA word

Function Otr(Ax, Ay, Bx, By: real): real;
begin
  Otr := sqrt(sqr(Ax - Bx) + sqr(Ay - By))
end;

function Perim(Ax, Ay, Bx, By, Cx, Cy: real): real;
begin
  Perim := Otr(Ax, Ay, Bx, By) + Otr(Bx, By, Cx, Cy) + Otr(aX, aY, Cx, Cy);
end;

function Area(Ax, Ay, Bx, By, Cx, Cy: real): real;
var
  pp: real;
begin
  pp := Perim(Ax, Ay, Bx, By, Cx, Cy) / 2;
  Area := sqrt(pp * (pp - Otr(Ax, Ay, Bx, By)) * (pp - Otr(Bx, By, Cx, Cy)) *
    (pp - Otr(Ax, Ay, Cx, Cy)))
end;

procedure Dist(Px, Py, Ax, Ay, Bx, By: real; var D: real);
begin
  D := 2 * Area(Px, Py, Ax, Ay, Bx, By) / Otr(Ax, Ay, Bx, By)
end;

var
  Px, Py, Ax, Ay, Bx, By, Cx, Cy: real;
  d: real;

begin
  writeln('Вводите координаты точкек парами чисел: ');
  write('P-> ');
  readln(Px, Py);
  write('A-> ');
  readln(Ax, Ay);
  write('B-> ');
  readln(Bx, By);
  write('C-> ');
  readln(Cx, Cy);
  writeln;
  Dist(Px, Py, Ax, Ay, Bx, By, d);
  writeln('Расстояние от Р до АВ равно ', d);
  Dist(Px, Py, Cx, Cy, Bx, By, d);
  writeln('Расстояние от Р до ВC равно ', d);
  Dist(Px, Py, Ax, Ay, Cx, Cy, d);
  writeln('Расстояние от Р до АC равно ', d)
end.

Тестовое решение:
Вводите координаты точкек парами чисел:
P-> -3 6
A-> 5 8
B-> 9 -4
C-> 8 -2.5

Расстояние от Р до АВ равно 8.22192191643778
Расстояние от Р до ВC равно 4.43760156980184
Расстояние от Р до АC равно 8.24163383692135

Номер 1.
256000*64=16384000бит
16384000:8=2048000Байт
2048000:1024=2000КБайт
ответ: 2000КБ
Номер 2.
E:\БАЙКАЛ\ВЕТРЫ\Баргузин.bmp. 
в каталоге БАЙКАЛ был создан подкатолог ВЕТРЫ, значит первоначальный путь был таким Е:\БАЙКАЛ\Баргузин.bmp.
Номер 3.
V = K * I, где V - объем; K - размер изображения; I - количество бит. N = 2^i, где N - количество цветов.N = 2^i.256 = 2^i.I = 8 бит.V = K * I = (1920*1080*8)/2^13 = (2^7 * 15 * 2^3 * 135 * 2^3)/2^13 = (2^13 * 2025)/2^13 = 2025КБайт
Номер 4.
k=4*32*64=8192
b=8192*8бит=65536бит
65536:8=8192Байт
8192:1024=8КБайт
Номер 5.
К1=32*64=2048
К2=64*128=8192
i1=8192*16=131072бит
i2=4096*1Байт=4096Байт*8=32768бит
i=i1+i2=131072+32768=163840бит=20480Байт=20КБайт