pascal Record Data Mahasiswa

program Data_mahasiswa;
uses crt;
type
  mahasiswa = record
  nim: string;
  nama: string;
  alamat:string;
end;
var
  mhs : mahasiswa;
begin
  clrscr;
  write('Inputkan Nama ');readln(mhs.nama);
  write('Inputkan NIM ');readln(mhs.nim);
  write('Inputkan Alamat ');readln(mhs.alamat);
  writeln(mhs.nama,'_',mhs.nim,'_',mhs.alamat);
  readln;
end.