Something

uses crt;

{Deklarujemy typ adres, ktory ma pola: ulica, nr, kod}

type adres = record
        ulica: string;
        numer_domu: integer;
        kod: string;

end;

{deklarujemy typ pracownik ktory ma 3 pola}
type pracownik = record
        imie: string;
        nazwisko: string;
        adres: adres;
        {pole adres jest typu "adres", czyli to pole posiada
        w sobie dodatkowo 3 pola typu adres ktore zostaly
        zadeklarowane kilka linijek wyzej}
end;

{Deklarujemy ze zmienna bedzie typu pracownik}
var Osoba: pracownik;

begin

{Pytamy o imie}
 writeln('Podaj imie: ');
{Nastepnie to co wpisze uzytkownik umieszaczamy w zmiennej Osoba a polu imie}
 readln(Osoba.imie);

 writeln('Podaj nazwisko: ');
 readln(Osoba.nazwisko);

{Prosimy o podanie ulicy: }
 writeln('Podaj ulice: ');
{Ustawiamy wartosc pola ulica na to co wpisal uzytkownik.}
 readln(Osoba.adres.ulica);

 writeln('Wprowadzone imie i nazwisko to: ', Osoba.imie, ' ', Osoba.nazwisko);
 readln;
 {Mam nadzieje ze chociaz 1/10 tego zrozumiałaś. NIestety muszę już iść
 bo mam jest _mega_ zła po zebraniu. Przepraszam ;/}

end.