Someone

procedure wypisz(lista_hurt:hurtwsk);
          var i:byte;
              lista1:hurtwsk;
          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;
                while (lista1^.prod<>NIL) and (lista1^.h^.prod<>NIL) do
                      begin
                      write(lista1^.prod^.p.nazwa:18,' ',chr(179));
                      write(lista1^.prod^.p.cena:10:2,' ',chr(179));
                      writeln(lista1^.prod^.p.ilosc:10);
                      lista1^.prod:=lista1^.prod^.n;
                      end;
                      writeln;
                      lista1:=lista1^.h;
                end;
          writeln;
          end;
procedure wypisz_zam(lista_zam:wskel);
          var i:byte;
              lista2:wskel;
          begin
          lista2:=lista_zam;
          writeln('ZAMOWIENIE');
          writeln('             NAZWA       ILOSC');
                for i:=1 to 19 do write(chr(196));
                write(chr(194));
                for i:=1 to 10 do write(chr(196));
                writeln;
          while lista2<>NIL do
                begin
                write(lista2^.p.nazwa:18,' ',chr(179));
                writeln(lista2^.p.ilosc:10);
                lista2:=lista2^.n;
                end;
          writeln;
          end;