[VolodinAS]

Код:

var
  FD: ^TFlightData;
  WAYS: array[0..4] of String;
begin

  WAYS[0] := '220';
  WAYS[1] := '221';
  WAYS[2] := '219';
  WAYS[3] := '222';
  WAYS[4] := '186';


for W := 0 to 4 do
    begin
      FD := Addr('FlightArray' + WAYS[W]);
      FD.money := 0;
      FD.exp := 0;
      FD.sec := 0;
      FD.mid_money := 0;
      FD.mid_exp := 0
    end;

Верно ли использование указателей?