ULANG NAMA,NIM

Perulangan nama,nim. Input nama,nim,pertanyaan 'Apakah ingin ada perulangan?'

uses wincrt;
var
nama,nim:string;
j:char;
begin
write('Nama: ');readln(nama);
write('NIM: ');readln(nim);
write('Apakah ingin diulang lagi?: ');readln(j);
if j='y' then
begin
clrscr;
repeat
write('Nama: ');readln(nama);
write('NIM: ');readln(nim);
write('Apakah ingin diulang lagi?: ');readln(j);
clrscr;
until j='t';
writeln('Terima kasih');
end;
else
if j='t' then writeln('Terima kasih') else writeln(' ');
end.