record data buku

UseS crt;
Type
Data = record
Judulbuku : string[30];
NamaPenggarang : string[40];
penerbit : string[30];
End;
Var
DT : Data;

Begin
Clrscr;
With DT do
begin
Write('Judul Buku : ');readln(JuduLBuku);
Write('Nama Penggarang : ');readln(NamaPenggarang);
Write('Penerbit : ');readln(Penerbit);
Writeln;
Writeln('buku yang diinginkan : ',JudulBUKU);
Writeln('Penggarang Buku : ',NAMAPenggarang);
Writeln('Penerbit : ',Penerbit);
End;
READLN;
END.