Установить ограничение на ввод количества дней в месяце

program p1;
 var      K:1..12;
     l:integer;
     z:integer;
begin
writeln ('введи номер месяца=');
readln (K);
writeln('введи день месяца=');
readln (l);
           case K  of 
                1: writeln (l);
                2: begin z:=31+l; writeln (z) end;
                3: begin z:=59+l; writeln (z)end;
                4: begin z:=90+l; writeln (z)end;
                5: begin z:=120+l; writeln (z)end;
                6: begin z:=151+l; writeln (z)end;
                7: begin z:=181+l; writeln (z)end;
                8: begin z:=212+l; writeln (z)end;
                9: begin z:=243+l; writeln (z)end;
                10: begin z:=273+l; writeln (z)end;
                11: begin z:=303+l; writeln (z)end;
                12: begin z:=334+l; writeln (z)end;
                end;
               end.

var      K:1..12;
     l:integer;
     z:integer;
begin
writeln ('введи номер месяца=');
readln (K);
writeln('введи день месяца=');
           case K  of
                1: repeat readln(l); until l in [1..31];
                2: repeat readln(l); until l in [1..28];
                3: repeat readln(l); until l in [1..31];
                4: repeat readln(l); until l in [1..30];
                5: repeat readln(l); until l in [1..31];
                6: repeat readln(l); until l in [1..30];
                7: repeat readln(l); until l in [1..31];
                8: repeat readln(l); until l in [1..31];
                9: repeat readln(l); until l in [1..30];
                10: repeat readln(l); until l in [1..31];
                11: repeat readln(l); until l in [1..30];
                12: repeat readln(l); until l in [1..31];
                end;
  readln;
end.

until (l>=1)and(l<=31)

 var      K:1..12;
     l:integer;
     z:integer;
begin
write('введи номер месяца= ');
readln (K);
write('введи день месяца= ');
           case K  of
                1:
                  begin
                    repeat readln(l); until l in [1..31];
                  end;
                2: begin
                     repeat readln(l); until l in [1..28];
                     l:=l+31;
                   end;
                3: begin
                     repeat readln(l); until l in [1..31];
                     l:=l+59;
                   end;
                4: repeat readln(l); until l in [1..30];
                5: repeat readln(l); until l in [1..31];
                6: repeat readln(l); until l in [1..30];
                7: repeat readln(l); until l in [1..31];
                8: repeat readln(l); until l in [1..31];
                9: repeat readln(l); until l in [1..30];
                10: repeat readln(l); until l in [1..31];
                11: repeat readln(l); until l in [1..30];
                12: repeat readln(l); until l in [1..31];
                end;
 
  writeln(l);
  readln;
end.

var k, i, l, z: integer;
 
function GetMaxDay(d: Integer): Integer;
begin
 case d of
  1, 3, 5, 7, 8, 10, 12: GetMaxDay:= 31;
  4, 6, 9, 11: GetMaxDay:= 30;
  else GetMaxDay:= 28;
 end; 
end;
 
begin
 repeat
  write('Введи номер месяца: ');
  readln(K);
 until k in [1..12];
 repeat
  writeln('Введи день месяца: ');
  readln(l);
  until l in [1..GetMaxDay(K)];
 z:= 0;
 for i:= 1 to k-1 do
  z:= z + GetMaxDay(i);
 z:= z+l;
 writeln('Номер дня: ', z);
end.