program project1;

type
wskaznik=^element;
element=record
      liczba:integer;
      nast:wskaznik;
      end;

var
g1,g2,g3:wskaznik;
glowa:wskaznik;


procedure Wstaw(var glowa:wskaznik; el:wskaznik);
var
biez:wskaznik;
begin
 if(glowa=NIL) then
   begin
     glowa:=el;
     el^.nast:=NIL;
   end
 else
 begin
   biez:=glowa;
   while(biez^.nast<>NIL) do
      biez:=biez^.nast;
      biez^.nast:=el;
      el^.nast:=NIL;
 end;
end;

procedure Drukuj(gl:wskaznik);
var
  biez:wskaznik;
begin
   biez:=gl;
   while(biez<>NIL) do
    begin
       writeln(biez^.liczba);
       biez:=biez^.nast;
    end;
end;


procedure Dodaj(var glowa:wskaznik; l:integer);
var
  nowy:wskaznik;
begin
   new(nowy);
   nowy^.liczba:=l;
   nowy^.nast:=glowa;
   glowa:=nowy;
end;


procedure Podziel(var g1,g2,g3:wskaznik);

var
biez:wskaznik;
tmp:wskaznik;
begin
biez:=g1;
while(biez<>NIL) do
   begin
     if (biez^.liczba>0) then
       begin
         tmp:=biez;
         biez:=biez^.nast;
         Wstaw(g2,tmp);
       end
     else
       begin
       tmp:=biez;
       biez:=biez^.nast;
       Wstaw(g3,tmp);
       end;
   end;
g1:=nil;
end;



function DOdajList(gl1,gl2:wskaznik):wskaznik;
var
  gl3:wskaznik;
  biez:wskaznik;
begin
  gl3:=nil
  biez:=gl1;
  while(biez<>NIL)do
     begin
     Dodaj(gl3,bie^.liczba);
     biez:=biez^.nast;
     end;
  biez:=gl2;
while(biez<>NIL)do
     begin
     Dodaj(gl3,bie^.liczba);
     biez:=biez^.nast;
     end;
DodajList:=gl3;
end;



begin
g1:=nil;
Dodaj(g1,2);
Dodaj(g1,-1);
Dodaj(g1,0);
Dodaj(g1,-1);
Dodaj(g1,-1);

writeln('g1');
Drukuj(g1);
writeln();

Podziel(g1,g2,g3);

Writeln('g2');
Drukuj(g2);
writeln();

Writeln('g3');
Drukuj(g3);
writeln();

writeln('g1');
Drukuj(g1);
writeln();

readln;
end.