begin
                               clrscr;
                               writeln('Prosze podac dane abonenta:');
                               writeln;
                               write('Imie: '); readln(imie);
                               write('Nazwisko: '); readln(nazwisko);
                               write('Ulica: '); readln(ulica);
                               write('Miejscowosc: '); readln(miejscowosc);
                               write('Numer: '); readln(numer);
                               writeln;


                          while (imie[1] < #65) or (nazwisko[1] < #65) or (ulica[1] < #65) or (miejscowosc[1] < #65) or (numer[1] < #48) or (numer[1] > #57) do
                          begin
                               clrscr;
                               writeln('Bledne dane, prosze podac poprawne');
                               writeln;
                               write('Imie: '); readln(imie);
                               write('Nazwisko: '); readln(nazwisko);
                               write('Ulica: '); readln(ulica);
                               write('Miejscowosc: '); readln(miejscowosc);
                               write('Numer: '); readln(numer);
                               writeln;

                          end;
                               dodaj(bazadanych, imie, nazwisko, ulica, miejscowosc, numer);
                               writeln('Dodano nowego abonenta');
                               imie:='0';
                               nazwisko:='0';
                               ulica:='0';
                               miejscowosc:='0';
                               numer:='a';
                               writeln;
                               write('Wcisnij dowolny klawisz aby kontynuowac');


                     end;