Record Merekam Data

Nah,..ini dia materi yang selalu di ulang-ulang setiap masuk mata kuliahnya....about Record . contoh kasusnya kayak gini :

Nama  : Nurul Ilmah

Nim    : 01020015

Jurusan : TI

------------------------------

Nama : Nurul Ilmah

Nim   : 01020015

Jurusan : TI

Listingnya kayak gini :

program dua;

uses wincrt;

type

data = record

nama : string[30];

nim : string[10];

jur : string[20];

end;

var

a:data;

begin

write('Nama :  ');readln(a.nama);

write('Nim   :  ');readln(a.nim);

write('Jurusan : ');readln(a.jur);

writeln('-------------------------------');

writeln('Nama : ',a.nama);

writeln('Nim : ',a.nim);

writeln('Jurusan : ',a.jur);

readln;

end.