Zasobnik

program Zasobnik;

type tData = integer;
     ukSeznam = ^seznam;
     seznam = record
     data:tData;
     dalsi:ukSeznam;
end;

var ukazatel:ukSeznam;
var data:tData;

procedure init(var co:ukSeznam);
begin
     co:=nil;
end;

function isEmpty(var co:ukSeznam):boolean;
begin
     if co=nil then
     begin
          isEmpty:=true;
     end
     else
     begin
          isEmpty:=false;
     end;
end;

procedure insert(var kam:ukSeznam;var hodnota:integer);
var pom:ukSeznam;
begin
     new(pom);
     pom^.data:= hodnota;
     pom^.dalsi:=kam;
     kam:=pom;
end;

procedure vypis(var co:ukSeznam);
var pom:ukSeznam;
begin
     pom:=co;
     while (pom <> nil) do
     begin
          writeln(pom^.data);
          pom:=pom^.dalsi;
     end;
end;

procedure odstran(var co:ukSeznam);
var data:tData;
var Odebrany: ukSeznam;
begin { OdeberPrvek }
  read(data);
  while ukazatel <> nil  do
  begin
   if ukazatel^.data = data then
   begin
        Odebrany:=Ukazatel;
        Dispose(Odebrany);
   end;
   Ukazatel:=Ukazatel^.Dalsi;
  end
end; { OdeberPrvek }

begin
init(ukazatel);
data:=1;
while data <> 0 do
begin

     readln(data);
     insert(ukazatel,data);
end;
writeln('Vypisuju...');
vypis(ukazatel);
odstran(ukazatel);
vypis(ukazatel);

readln;
end.