praca domowa

[dominator5 0]

witam

mam zadanie z rekordow program ma zapytac sie od ilu osob maja byc pobrane dane osobowe, imie, nazwisko, rok urodzenia, plec, jesli data urodzenia mniejsza niz 1900 i wieksza niz 2007 to ma wyswietlac bledna data

zamieszczam program z objektow najlepiej by bylo gdyby ten program poprawic

 

program objekt; 
uses crt; 
type 
osoba=object 
nazwisko:string[30]; 
imie:string[20]; 
miejsce_ur:string[20]; 
rok_ur:integer;
plec:char; 
procedure inicjuj; 
procedure drukuj; 
end; 
procedure osoba.inicjuj; 
begin 
writeln('podaj nazwisko'); 
readln(nazwisko); 
writeln('podaj imie'); 
readln(imie); 
writeln('podaj miejsce ur'); 
readln(miejsce_ur); 
writeln('podaj rok ur');
readln(rok_ur);
writeln('podaj plec'); 
readln(plec); 
readln; 
end; 
procedure osoba.drukuj; 
begin 
writeln('nazwisko: ',nazwisko); 
writeln('imie: ',imie); 
writeln('miejsce ur: ',miejsce_ur); 
if (rok_ur < 1900) or (rok_ur > 2007)
then writeln('rok ur: blad danych') else
writeln('rok ur: ',rok_ur);
writeln('plec: ',plec); 
end; 
var osoba1:osoba; 
begin 
clrscr; 
osoba1.inicjuj; 
osoba1.drukuj; 
readln; 
end.

 

z gory dzieki

[Crow 0]

Program wydaje sie ok... w czym tkwi problem?