Pointer

uses crt;
var
judul,pengarang, tglpj, tglkem:^string;

begin
clrscr;
new(judul);
Judul^:='Judul Buku : Perahu kertas';
new(Pengarang);
Pengarang^:='Pengarang Buku : Dewi Lestari';
tglpj:='Tanggal pinjam: 10';
tglkem:='Tanggal kembali 20';



writeln(Judul^);
writeln(Pengarang^);
writeln(tglpj);
writeln(tglkem);

Judul := pengarang; writeln(Judul^);
Judul^:='Judul Buku : Perahu Kertas';
writeln(Judul^);
Pengarang^:='Pengarang Buku : Dewi Lestari';
writeln(Pengarang^);


readln;
end.


Berikut Hasil Outputnya :