TP3/shell/tests/fixtures/t93_pointer.pas

program t93_pointer;

{ t93 -- pointer types, New/Dispose, dereference and indexed string elements.
  CALC.INC's Help declares `Buffer : ^Pages' where Pages is an array of
  string[80], calls New(Buffer), writes/reads Buffer^[i], and disposes it. }

type
  Pages = array [0..2] of string[5];

var
  P : ^Pages;
  S : string[5];
  I : integer;
begin
  New (P);
  P^[0] := 'hi';
  P^[1] := 'yo';
  I := 1;
  S := P^[I];
  writeln (P^[0]);
  writeln (S);
  writeln (P^[1] = 'yo');
  Dispose (P)
end.