Pointer

Ini Program Pointer tak bertipe :

uses crt;
var
p : Pointer;
q : ^Byte;
r : array [0..100] of Byte;
i : Byte;
n : integer;
begin
clrscr;
write(‘Masukkan jumlah data : ‘); readln(n);
writeln;
writeln;
GetMem(p, 20);
q := p;
for i := 0 to n do
begin
r[i] := n – i;
q^ := n – i;
inc(q);
end;
q := p;
for i := 0 to n do
begin
write(‘r[ ‘, i ,’ ] = ‘, r[i], ‘; ‘);
writeln(‘p^ ke-‘, i ,’ = ‘, q^);
inc(q);
end;
readln;
end.