Program Stat Game

program StatGame;
uses Wincrt;
 
type Game=record
    Judul : string[15];
    Genre : string[10];
    Versi : string[10];
    Rating : string[10];
    Vendor : string[20];
    Harga : integer;
end;
 
var
    x : Game;
    Jwbn : char;
 
begin
  repeat
     writeln('Entry data game');
     writeln;
     writeln;
     write('Judul Game : '); readln(x.Judul);
     write('Genre Game : '); readln(x.Genre);
     write('Versi Game : '); readln(x.Versi);
     write('Rating Game : '); readln(x.Rating);
     write('Vendor : '); readln(x.Vendor);
     write('Harga : '); readln(x.Harga);
     writeln;
     writeln('---------------------------------------');
     writeln('Review Entry:');
     writeln('Judul Game : ', x.Judul);
     writeln('Genre Gamme : ', x.Genre);
     writeln('Versi Game : ', x.Versi);
     writeln('Rating Game : ', x.Rating);
     writeln('Vendor : ', x.Vendor);
     writeln('Harga : ', x.Harga);
     writeln;
     writeln('---------------------------------------');
     writeln;
     writeln('Apakah anda ingin mengulang entry data ? (y/t)'); readln(Jwbn);
  until (Jwbn='t');
  writeln;
  writeln;
  writeln('Terima Kasih atas kerjasamanya...');
end.