По введенной дате рождения дополнить файл строками соответсвующего знака Зодиака

program zodiac;
Uses crt;
var d,m,k:byte;
    f:text;
    name:string;
    c:char;
begin
clrscr;
write('Введите имя файла для записи: ');
readln(name);
name:=name+'.txt';
assign(f,name);
rewrite(f);
writeln('Введите даты рождения, окончение ввода Esc.');
repeat
repeat
write('месяц: ');
readln(m);
until m in [1..12];
repeat
k:=0;
write('день: ');
readln(d);
if ((m=2)and(d>29))or((m in [1,3,5,7,8,10,12])and(d>31))
or((m in [4,6,9,11])and(d>30))or(d<1)then k:=1;
until k=0;
write(f,d:2,'.',m:2,' - ');
case m of
1:case d of
  1..19:writeln(f,'Kozerog');
  20..31:writeln(f,'Vodoley');
  end;
2:case d of
  1..18:writeln(f,'Vodoley');
  19..29:writeln(f,'Ryby');
  end;
3:case d of
  1..20:writeln(f,'Ryby');
  21..31:writeln(f,'Oven');
  end;
4:case d of
   1..21:writeln(f,'Овен');
   22..30:writeln(f,'Telec');
   end;
5:case d of
   1..2:writeln(f,'Telec');
   21..31:writeln(f,'Bliznecy');
   end;
6:case d of
   1..21:writeln(f,'Bliznecy');
   22..30:writeln(f,'Rak');
   end;
7:case d of
   1..22:writeln(f,'Rak');
   23..31:writeln('Lev');
   end;
8:case d of
   1..22:writeln(f,'Lev');
   23..31:writeln(f,'Deva');
   end;
9:case d of
   1..22:writeln(f,'Deva');
   23..30:writeln(f,'Vesy');
   end;
10:case d of
   1..22:writeln(f,'Vesy');
   23..31:writeln(f,'Skorpion');
   end;
11:case d of
   1..22:writeln(f,'Skorpion');
   23..30:writeln(f,'Strelec');
   end;
12:case d of
   1..21:writeln(f,'Strelec');
   22..31:writeln(f,'Kozerog');
   end;
end;
c:=readkey;
until c=#27;
close(f);
readln
end.