Program Kolejka1;

Type Wskaznik_Kolejki=^Element_Kolejki;

Element_Kolejki=Record

Nazwisko:String[30];

Wsk:Wskaznik_Kolejki;

End;

Var Kolejka,Biezacy,Nowy:Wskaznik_Kolejki;

Begin

Repeat

New(Nowy);

Write('Podaj nazwisko : ');

ReadLn(Nowy^.Nazwisko);

If Nowy^.Nazwisko <> '' Then

Begin

Nowy^.Wsk:=Nil;

If Kolejka=Nil Then

Begin

Kolejka:=Nowy;

Biezacy:=Nowy;

End

Else

Begin

Biezacy^.Wsk:=Nowy;

Biezacy:=Nowy;

End;

End;

Until Nowy^.Nazwisko='';

Biezacy:=Kolejka;

While Biezacy<>Nil Do

Begin

Writeln('Nazwisko : ',Biezacy^.Nazwisko);

Biezacy:=Biezacy^.Wsk;

End;

End.

Program Kolejka1;

Type Wskaznik_Kolejki=^Element_Kolejki;

Element_Kolejki=Record

Nazwisko:String[30];

Wsk:Wskaznik_Kolejki;

End;

Var Kolejka,Biezacy,Nowy:Wskaznik_Kolejki;

Begin

Repeat

New(Nowy);

Write('Podaj nazwisko : ');

ReadLn(Nowy^.Nazwisko);

If Nowy^.Nazwisko <> '' Then

Begin

Nowy^.Wsk:=Nil;

If Kolejka=Nil Then

Begin

Kolejka:=Nowy;

Biezacy:=Nowy;

End

Else

Begin

Biezacy^.Wsk:=Nowy;

Biezacy:=Nowy;

End;

End;

Until Nowy^.Nazwisko='';

Biezacy:=Kolejka;

While Biezacy<>Nil Do

Begin

Writeln('Nazwisko : ',Biezacy^.Nazwisko);

Biezacy:=Biezacy^.Wsk;

End;

End.

---