program TipeRecord;
uses wincrt;
type
TSiswa = Record
NIM : string[8];
Nama : string[25];
Alamat : string;
Umur : integer[2];
Status : integer;
end;

Var
S:TSiswa;
begin
{membaca data dari keyboard dan memasukannya nilainya
ke dalam variabel S}
writeln('Isikan Informasi mengenai diri anda');
write('NIM : ');readln(S.NIM);
  write('Nama : ');readln(S.Nama);
write('Umur : ');readln(S.Umur);
write('Status : ');readln(S.Status);
write('Alamat : ');readln(S.Alamat);
writeln;
{Menampilkan data yang telah dimasukan}
writeln('Berikut informasi anda');
writeln('NIM : ', S.NIM);
writeln('Nama : ', S.Nama);
writeln('Umur : ', S.Umur);
writeln('Satus : ');readln(S.Status);
write('Umur : ');readln(S.Umur);
end.