Procedure DoPodlisty (used :lista; ws :Wskaznik);
var pod, akt, w8 :listeczka; lis :lista;

Function JuzBylo :boolean;
var fun :listeczka; str :String; li :lista;
masz :boolean;
begin
	li := ws^;
	str := li^.nazwa;
	fun := used^.podlista;
	masz := false;
	While (fun <> nil) and not masz do
	begin
		masz := (fun^.name = str);
		fun := fun^.nast;
	end;
	JuzBylo := masz;
end;

begin
	If not JuzBylo then
	begin
		lis := ws^;
		If used^.podlista = nil then
		begin
		writeln('uj ',lis^.nazwa);
			new(pod);
			used^.podlista := pod;
			used^.podlista^.w := ws;
			used^.podlista^.nast := nil;
			used^.podlista^.name := lis^.nazwa;
		end
		else
		begin
			If used^.podlista^.name > lis^.nazwa then
			begin
			writeln('huj ',lis^.nazwa);
				new(pod);
				pod^.nast := used^.podlista;
				used^.podlista := pod;
				pod^.w := ws;
				pod^.name := lis^.nazwa;
			end
			else
			begin
				akt := used^.podlista;
				While (akt^.name < lis^.nazwa) and (akt^.nast <> nil) do akt := akt^.nast;
				begin
					If (akt^.nast = nil) and (akt^.name < lis^.nazwa) then
					begin
					new(pod);
					akt^.nast := pod;
					pod^.nast := nil;
					pod^.w := ws;
					pod^.name := lis^.nazwa;
					end
					else
					begin
					w8 := akt; akt := akt^.nast;
					new(pod);
					pod^.nast := akt;
					w8^.nast := pod;
					pod^.w := ws;
					pod^.name := lis^.nazwa;
					end;
				end;
			end;
		end;
	end;
end;