Bom dia John, tudo bem? O código abaixo está praticamente terminado, para que ele termine, a estrutura : if (High[i] >= High[h - Strength]), precisa de solução o Profit alega: 

"Não é possível utilizar índice negativo para acessar uma série de dados (-1)" ... Como tentar fazer uma "falcatrua" para burlar isso? segue o código completo:

input
Strength (5);
Length (5);

var
i: Integer;

h: integer;
xswingHigh: float;
foundSwingHigh: Boolean;

begin

// obtém o índice do maior valor da série High dentro do período Length
for i := 0 to Length - 1 do
begin
h:= Round(highestBar(high,Strength));
if High[i] >= h then
h := i;
end;

i := 0;
while (i < Length) and not foundSwingHigh do
begin
// verifica se o valor atual é um swing high
if (High[i] >= High[h - Strength]) and
(High[i] > High[i + 1]) and
(High[i] > High[i - 1]) then
begin
// encontrou um swing high
foundSwingHigh := true;
xswingHigh := High[i];
end;

i := i + 1;
end;

plot(xswingHigh);

end;