program Project1;

{$APPTYPE CONSOLE}
uses
  SysUtils;

type
  st=^seller;
  seller = record
    id:integer;
    maker:string;
    cost:Integer;
    daterec:TDateTime;
    datesend:TDateTime;
    prev:st;
    end;
var
  s:string;
  ac,top:st;
  i,n,z,k:Integer;

procedure PushStack();
begin
      New(ac);
      Writeln('id');
      Readln(ac^.id);
      Writeln('maker');
      Readln(ac^.maker);
      Writeln('cost');
      Readln(ac^.cost);
      Writeln('date');
      Readln(s);
      ac^.daterec:=StrToDate(s);
      s:='';
      Writeln('datesend');
      Readln(s);
      ac^.datesend:=StrToDate(s);
      s:='';
      ac^.prev:=top;
      top:=ac;
end;

procedure PopStack;
  begin

  end;

procedure WriteStack;
  begin
  Writeln('Stack : ');
  ac:=top;
  while ac <> nil do
  begin
    writeln(ac^.id,' ',ac^.maker,' ',ac^.cost,' ',datetostr(ac^.daterec),' ',DateToStr(ac^.datesend));
  end;
  writeln
  end;

begin
  k:=-1;
  top:=nil;
  while k<>0 do
  begin
  Writeln('1.Add elements to stack');
  Writeln('2.Write stack');
  readln(k);
  case k of
  1:begin writeln('enter kol-vo');Readln(z);for i:=1 to z do PushStack(); end;
  2:begin WriteStack; end;
  end;
  end;
  end.