repeat
                          s:='';
                          clrscr;                                 //Wprowadzanie daty
                          writeln('Wpisz rok.');
                          new(rok);
                          readln(s);
                          if (s >= '0') and (s <='3000') then
                          begin
                            writeln('dziala');
                            rok^:=strtoint(s);
                            writeln;
                            writeln('Wpisz miesiac.');
                            s:='';
                            readln(s);
                            if (s >= '0') and (s <='12') then
                            begin
                              new(mie);
                              mie^:=strtoint(s);
                              writeln('Wpisz dzien.');
                              s:='';
                              readln(s);
                              if (s >= '0') and (s <='31') then
                              begin
                                new(dzi);
                                dzi^:=strtoint(s);
                                popr_wart:=1;
                                s:='';
                              end
                              else
                              begin
                              writeln('bledny dzien');
                              end
                            end
                            else
                            begin
                            writeln('bledny miesiac');
                            end;
                          end
                          else
                          begin
                          writeln('bledna wartosc rok');
                          end;
                         { writeln;
                          writeln('Wpisz miesiac.');
                          new(mie);
                          readln(mie^);
                          writeln;
                          writeln('Wpisz dzien.');
                          new(dzi);
                          readln(dzi^);  }
                          until popr_wart=1;
                          popr_wart:=0;