Program Repeat Until

program repeat_until;
uses wincrt;
var nama:string;
nim:integer;
pilih:char;
begin
repeat
CLRSCR;
write('masukkan nama= ');readln(nama);
write('masukkan nim= ');readln(nim);
write('anda ingin mengulang (Y/T)? ');readln(pilih);
until pilih='t';
write('selesai');
end.