[Pascal] Tugas Struktur Data Menjelaskan Arti Dari Syntax Menggunakan Komentar

Bentuk Soal :
Buatlah sebuah program dengan menggunakan compiler Turbo Pascal, lalu jelaskanlah menggunakan komentar dalam program tersebut!

Syntax Turbo Pascal

PROGRAM PIUS_201543200625_UNINDRA_KOMENTAR;
program TUGAS3; {judul program}

uses crt; {tipe library untuk manipulasi layar}
type mahasiswa = record {record dengan nama mahasiswa}
     nama  : string; {field nama dengan tipe data string}
     npm   : string; {field npm dengan tipe data string}
     nilai : integer; {field nilai dengan tipe data integer}
end; {akhir dari record}

var {deklarasi variabel}
    mhs : array [1..10] of mahasiswa; {array record mahasiswa dengan variabel mhs}
    jum : byte; {variabel jum dengan tipe data byte}
    i   : integer; {variabel i dengan tipe data integer}

procedure input; {membuat prosedur input}
begin
  writeln('Data Mhs');
  write('Jumlah data : '); {menentukan jumlah data yang akan di input}
  readln (jum); {membaca jum untuk jumlah data}
  writeln; {longkap satu baris}
  for i := 1 to jum do {loop variabel i sebanyak variabel jum}
  begin {program input data mahasiswa}
    writeln('Data ke- ',i);
    write('Nama : '); {input nama}
    readln(mhs[i].nama); {menyimpan data didalam field nama}
    write('Npm : '); {input npm}
    readln(mhs[i].npm); {menyimpan data didalam field npm}
    write('Nilai : '); {input nilai}
    readln(mhs[i].nilai); {menyimpan data didalam field nilai}
    writeln; {longkap satu baris}
  end; {akhir dari perulangan for-do}
end; {akhir dari prosedur input}

procedure judul; {membuat prosedur judul}
begin {mengosongkan layar}
  clrscr;
  gotoxy(13,1); writeln('DATA MAHASISWA');
  writeln(' ------------------------------------------------- ');
  gotoxy(3,3); write('No');
  gotoxy(7,3); write('Nama');
  gotoxy(27,3); write('Npm');
  gotoxy(45,3); write('Nilai');
  writeln;
  writeln(' ------------------------------------------------- ');
end; {akhir dari prosedur judul}

procedure tampil; {membuat prosedur tampil}
begin
  for i := 1 to jum do {loop variabel i sebanyak variabel jum}
  begin
    gotoxy(3,4+i); {menuju koordinat x3 y4}
    write(i); {menampilkan variabel i}
    gotoxy(7,4+i); {menuju koordinat x7 y4}
    write(mhs[i].nama); {menampilkan field nama}
    gotoxy(27,4+i); {menuju koordinat x27 y4}
    write(mhs[i].npm); {menampilkan field npm}
    gotoxy(45,4+i); {menuju koordinat x45 y4}
    write(mhs[i].nilai); {menampilkan field nilai}
  end; {akhir dari perulangan for-do}
  writeln;
  writeln(' ------------------------------------------------- ');
end; {akhir dari prosedur tampil}

{program utama}
begin
  clrscr; {mengosongkan layar}
  input; {memanggil prosedur input}
  judul; {memanggil prosedur judul}
  tampil; {memanggil prosedur tampil}
  readln;
end. {akhir dari program}