Menginput data menggunakan pointer (^) pada pascal

Program ini digunakan untuk menginput data mahasiswa di dalam variabel mhs1 dengan menggunakan pointer.

 uses crt;

type

         punya_mahasiswa = ^data_mhs;

         data_mhs = record

         nama : string [25];

         kelas : string [6];

         npm : string [9];

         end;

var

         mhs1 : punya_mahasiswa;

begin

clrscr;

         writeln('-----Silahkan Masukkan Data Mahasiswa-----');

         writeln;

         writeln ('Mahasiswa ke 1');

         new(mhs1);

         with mhs1^do

begin

         write('Nama Mahasiswa : '); readln(nama);

         write('Kelas : '); readln(kelas);

         write('NPM : '); readln(NPM);

end;

begin

         clrscr;

         writeln; writeln;

         writeln('-----Data Mahasiswa Yang Telah Dimasukkan-----');

         writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++');

         writeln('Nama                     Kelas      NPM');

         writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++');

         with mhs1^do writeln(nama:5,kelas:25,npm:12);

end;

readln;

end.

Seperti ini hasilnya :