Помогите отредактировать программу

uses crt;
var
  day:integer;
  month:integer;
  year:integer;
  last:boolean;
  r:real;
  l:integer;
  k:char;
 
begin
  {________________________фон}
  TextBackground(3);
  ClrScr;
 
  {________________________тень}
  Window(28,11,62,21);
  TextBackground(0);
  ClrScr;
 
  {________________________окно}
  Window(25,10,60,20);
  TextBackground(2);
  ClrScr;
 
 
  {________________________заголовок}
  TextBackground(22);
  TextColor(14);
  WriteLn ('             Calendar               ');
 
 
  {________________________надписи}
  TextBackground(2);
  TextColor(0);
  
  GotoXY(3,3);
  
  writeln ('     Vvedite segodnie daty'   );
  writeln ('      Chislo mesaz god:    '      );
  textbackground(1);
 
 
  textcolor(10);
 
  gotoXY(25,4);
  writeln('         ');
 
 
 
 
 
 
 
  TextColor(31);
  GotoXY(10,6);
  WriteLn('Rezultat: ');
  
  textbackground(2);
  textcolor(4);
 
 
  TextColor(0);
  GotoXY(5,2);
  writeln('         ');
 
 
   repeat
  
    TextBackground(1);
    TextColor(14);
 
      {________________________области ввода}
    Gotoxy(25,4);
    writeln('         ');
 
 
 
 
 {________________________ввод переменных}
 
  gotoXY (25,4);
  readln (day,month,year);
 
  gotoXY(7,6);
 
 
 
 
 
 
 
 
last:=FALSE;
case month of
1,3,5,7,8,10,12:if day=31
then last:=TRUE;
4,6,9,11: if day=30
then last:=TRUE;
2: if day = 28 then
begin
r:=year mod 4; if r <> 0
then last:=TRUE;
end;
end;
if last
then begin writeln ('Posledni den meseza');
day:=1;
if month=12
then begin
month:=1; year:=year + 1;
writeln ('S Novim Godom'); end
else month:=month + 1; end
else day:=day + 1;
writeln ('zavtra ',day,'.',month,'.',year);
readln;
 
until k=#27;
end.