procedure wypisz(lista_hurt:hurtwsk);
          var i:byte;
              lista1:hurtwsk;
              produkt:produkty
          begin
          lista1:=lista_hurt;
          writeln('             NAZWA        CENA       ILOSC');
          while lista1<>NIL do
                begin
                writeln('HURTOWNIA ',lista1^.hurtownia);
                for i:=1 to 19 do write(chr(196));
                write(chr(194));
                for i:=1 to 11 do write(chr(196));
                write(chr(194));
                for i:=1 to 10 do write(chr(196));
                writeln;
                produkt = lista^.prod^.next {wskazujemy na pierwszy produkt
                while (produkt^.next<>NIL) do
                      begin
                      write(produkt^.nazwa:18,' ',chr(179));
                      write(produkt^.cena:10:2,' ',chr(179));
                      writeln(produkt^.ilosc:10);
                      produkt:=produkt^.next;
                      end;
                      writeln;
                      lista1:=lista1^.h;
                end;