Program Zodiak pada Turbo Pascal

program zodiak;
uses wincrt;
var
t,bl,tl,z,j : integer;
ulang : char;
begin
repeat
clrscr;
write ('Masukan Tanggal Lahir (dalam bentuk Angka) : ');
readln(tl );
write ('Masukan Bulan Lahir   (dalam bentuk Angka) : ');
readln(bl);
writeln ('-------------------------------------------');


case bl of
01 : begin t := 31; j := 0 end;
02 : begin t := 29; j := 1 end;
03 : begin t := 31; j := 0 end;
04 : begin t := 30; j := 0 end;
05 : begin t := 31; j := -2 end;
06 : begin t := 30; j := -1 end;
07 : begin t := 31; j := -2 end;
08 : begin t := 31; j := -2 end;
09 : begin t := 30; j := -3 end;
10 : begin t := 31; j := -2 end;
11 : begin t := 30; j := -1 end;
12 : begin t := 31; j := -2 end;
else writeln (' Bulan yang anda Maksud Tidak Tersedia');
end;
begin
if ( tl <= t) = true then
begin
write ('Zodiac Anda Adalah ');
z := ((bl * 31) + ((tl + j) - 21)) div 31 ;
case z of
1 : writeln ('Aquarius');
2 : writeln ('Pisces');
3 : writeln ('Aries');
4 : writeln ('Taurus');
5 : writeln ('Gemini ');
6 : writeln ('Cancer');
7 : writeln ('Leo');
8 : writeln ('Virgo');
9 : writeln ('Libra');
10 : writeln ('Scorpio');
11 : writeln ('Sagitarius');
else writeln ('Capricon');
end;
end
else writeln ('Tanggal Tidak Tersedia');
end;
writeln('------------------------------------------------');
write ('Mau Mencoba lagi ? (y/t) : ');
readln(ulang);
until (ulang = 't' ) or (ulang = 'T')
end.