Membuat Program Pointer pada Pascal

Uses crt;                             

Type ptr = ^string;          

Var        

ptrnama, ptrkls, ptrnpm : ptr;

nama,kls,npm : string; 

x,n : integer;                     

begin                                                    

clrscr;                                                   

writeln(‘data mahasiswa : ‘);      

writeln(‘ ‘);                        

writeln(‘masukan angka : ‘);       

readln (n);                                          

for x := 1 to n do                              

begin                                                    

writeln(‘data ke ‘,x);                                      

write(‘nama = ‘);                                             

readln(nama);                  

write(‘kelas = ‘);                              

readln(kls);                                        

write(‘npm = ‘);                               

readln(npm);                                    

ptrnama := @nama;                                       

ptrkls := @kls;                   

ptrnpm := @npm;           

writeln(‘nama = ‘,ptrnama^);    

writeln(‘kelas = ‘,ptrkls^);                           

writeln(‘npm = ‘,ptrnpm^);        

end;                                                                                      

readln;                                                                                                 

end.

output :