Tugas Record

uses wincrt;
type data = record
    NP : string [25];
    JM : string [30];
    JP : string [25];
    HM : real;
    MB : string [15];
end;
var
   a : data ;
  
jawaban : char;
begin
     repeat
    clrscr;
       writeln ('==================================================================');
       writeln ('====================PT DEALER MOBIL SAKTI=========================');
       writeln ('==================================================================');
       write   ('Nama Pembeli          =');
           readln  (a.NP);
           write   ('Merk Mobil            =');
       readln  (a.MB);    
           write   ('Jenis Mobil           =');
       readln  (a.JM);
           write   ('Harga Mobil           =');
       readln  (a.HM);
       write   ('Jenis Pembayaran T/K  =');
       readln  (a.JP);   
       writeln;
           writeln ('===================PT DEALER MOBIL SAKTI==========================');
       WRITELN ('==============Jln. Pejanggik No.04 (praya)========================');
       writeln ('==================================================================');
       writeln ('¦Nama Pembeli¦Merk Mobil¦Jenis Mobil¦Harga MobIL¦Jenis Pembayaran¦');
       writeln ('¦':1,'¦':13,'¦':11,'¦':12,'¦':17,'¦':(17));
       writeln ('==================================================================');
       writeln ('¦',a.NP:12,'¦',a.MB:10,'¦',a.JM:11,'¦',a.HM:11:0,'¦',a.JP:16,   '¦');
           writeln ('¦':1,'¦':13,'¦':11,'¦':12,'¦':12,'¦':(17));      
           writeln ('==================================================================');
         writeln ('Apakah Akan di Masukkan Data Lagi Y/T :');
       Readln (jawaban);

      UNTIL (jawaban = 'T');
end.