program ideone;
type
TArr=array of PAnsiString;
PArr=^TArr;
var Arr:TArr;
var P:PArr;
var PS:PAnsiString;
const A:AnsiString='Ala ';
const B:AnsiString='ma ';
const C:AnsiString='kota.';
begin
SetLength(Arr,3);
Arr[0]:=@A;
Arr[1]:=@B;
Arr[2]:=@C;
P:=@Arr;
WriteLn(P^[0]^,P^[1]^,P^[2]^); // tak powinno być
//PS:=@P^[0]; WriteLn(PS^); // tak robisz
end.
cHJvZ3JhbSBpZGVvbmU7Cgp0eXBlCiAgVEFycj1hcnJheSBvZiBQQW5zaVN0cmluZzsKICBQQXJyPV5UQXJyOwoKdmFyIEFycjpUQXJyOwp2YXIgUDpQQXJyOwp2YXIgUFM6UEFuc2lTdHJpbmc7CmNvbnN0IEE6QW5zaVN0cmluZz0nQWxhICc7CmNvbnN0IEI6QW5zaVN0cmluZz0nbWEgJzsKY29uc3QgQzpBbnNpU3RyaW5nPSdrb3RhLic7CmJlZ2luCiAgU2V0TGVuZ3RoKEFyciwzKTsKICBBcnJbMF06PUBBOwogIEFyclsxXTo9QEI7CiAgQXJyWzJdOj1AQzsKICBQOj1AQXJyOwogIFdyaXRlTG4oUF5bMF1eLFBeWzFdXixQXlsyXV4pOyAvLyB0YWsgcG93aW5ubyBiecSHCiAgLy9QUzo9QFBeWzBdOyBXcml0ZUxuKFBTXik7IC8vIHRhayByb2Jpc3oKZW5kLg==