ich hätte eher an eine While schleife gedacht die solange durchläuft bis das ende erreicht ist (bzw. welche rückwärts läuft solange der Index > -1 ist) und das Zeichen nicht erreicht wurde.
Delphi-Quellcode:
var i: Integer;
begin
i := length(
array) - 1;
while ((i > -1)
and (
array[i] <> gesuchtes_zeichen))
do
dec(i);
result := (i > -1);