Pointer tak bertipe
1. Source Code

uses crt;
var
p : Pointer;
q : ^Byte;
r : array [0..19] of Byte;
i : Byte;
begin
GetMem(p, 20);
q := p;
for i := 0 to 19 do
begin
       r[i] := 19 - i;
       q^ := 19 - i;
       inc(q);
end;
q := p;
for i := 0 to 19 do
begin
clrscr;
       write('r[ ', i ,' ] = ', r[i], '; ');
       writeln('p^ ke-', i ,' = ', q^);
       inc(q);
end;
readln;
end.

2.    Screenshot Program
1.1 Setelah program di run
 
            Gambar 1. Tampilan program