program test;

uses atari, crt;

var
    marr: array [0..100] of string;

procedure test(target: pointer);
var
    z : string;
    arr: array [0..100] of string;
    ptr : ^arr;
begin
    ptr := target;
    z := 'abc';
    ptr[0] := z;
    z := 'cde';
    ptr[1] := z;
end;

procedure test2(target: pointer);
var
    z : string;
    arr: array [0..100] of string;
    ptr : ^arr;
begin
    ptr := target;
    ptr[0] := 'abc';
    ptr[1] := 'cde';
end;


begin

    // to działa źle
    test(pointer(@marr));
    writeln('Item 0: ', marr[0]);
    writeln('Item 1: ', marr[1]);

    // to działa dobrze
    test2(pointer(@marr));
    writeln('Item 0: ', marr[0]);
    writeln('Item 1: ', marr[1]);

    readkey;
end.