pointer

Program pointerr;
uses crt;

var nama, nim : ^string;
    shift, no : byte;

begin
clrscr;
new(nama); new(nim);
        nama^ := 'M. irhansi putra';
        nim^ := 'J1F114078';
        shift := 1;
        no := 17;

writeln('Nama           : ',nama^);
writeln('NIM            : ',nim^);
writeln('Shift          : ',shift);
writeln('No. Meja       : ',no);
dispose(nama); dispose(nim);
readln;
end.