program test;
uses crt;

const MEM_DATA = $6000;

type Ttest = record
    arr: array[0..3] of byte;
end;

var t:Ttest;
    tp:^Ttest;
    a,a1,a2:array[0..0] of byte;
    i:byte;
begin

    tp:=pointer(MEM_DATA);

    //a:=tp^.arr;
    a:=(tp^.arr);

    for i:=0 to 3 do begin
        t.arr[i]:=i+100;
        a[i]:=i+200;
    end;

    //a1:=t.arr;
    a1:=(t.arr);
    //a2:=tp^.arr;
    a2:=(tp^.arr);

    for i:=0 to 3 do begin
        writeln(a1[i],' ',a2[i]);
    end;

    readkey;

end.