[Страдалецъ]

Для моего варианта так:

Код:

var
  i: Integer;
  Result: Real;
begin
 for i := 1 to 2
 do if Arr[i].S = 'Элемент1'
 then Result := Arr[i].V;
end;