Contoh program array dalam record

1. Uses Crt;
2. Const
3. JumlahSiswa = 3;
4. Type Nilai = Record
5. Nim : String;
6. Nama: String;
7. Tugas : Real;
8. UTS : Real;
9. UAS : Real;
10. Na : Real;
11. Grade : Char;
12. End;
13. Var
14. Mhs : Array[1..JumlahSiswa] of Nilai;
15. I : Integer;
16. Begin
17. Clrscr;
18. For I := 1 To JumlahSiswa Do
19. Begin
20. With Mhs[i] Do
21. Begin
22. Writeln('Mahasiswa ke : ',i:2);
23. Write('Nim : ');Readln(Nim);
24. Write('Nama : ');Readln(Nama);
25. Write('Tugas : ');Readln(Tugas);
26. Write('UTS : ');Readln(Uts);
27. Write('UAS : ');Readln(Uas);
28. End;
29. End;
30. For I := 1 To JumlahSiswa Do
31. Begin
32. With Mhs[i] Do
33. Begin
34. Na := (Tugas + Uts + Uas) / 3;
35. If (Na >= 80) Then Grade := 'A' Else
36. If (Na < 80) and (Na>=70) Then Grade := 'B' Else
37. If (Na < 70) and (Na>=60) Then Grade := 'C' Else
38. If (Na < 60) and (Na>=50) Then Grade := 'D' Else
39. Grade :='E';
40. End;
41. End;
42. Writeln('----------------------------------------------------------');
43. Writeln(' NO NIM NAMA TUGAS UTS UAS NA GRADE ');
44. Writeln('----------------------------------------------------------');
45. For I := 1 To JumlahSiswa Do
46. Begin
47. With Mhs[i] Do
48. Begin
49. Writeln(i:3,Nim:10,Nama:10,Tugas:7:2,Uts:7:2,
50. Uas:7:2,Na:7:2,Grade:5);
51. End;
52. End;
53. Readln;
54. End.

Jika program ini dijalankan, maka akan mendapatkan hasil output yang sama seperti dengan tanpa menggunakan statement With