Четные числа в стеке заменить на ноль

type pitem = ^item;
     item = record
     data: integer;
     prev:pitem;
     end;
 
var p,top: pitem;
      k: integer;
 
procedure add(x:integer);
begin
          new(p);p^.data:=x;
          p^.prev:=top;
          top:=p;
                   
end;
 
 
procedure writestack;
begin
          writeln('Content of stack from top: ');
          p:=top;
          while p<>nil do begin
                write(p^.data,' ');p:=p^.prev;
          end;
          writeln;
end;
 
Begin
top:=nil;
for k:=1 to 10 do add(k);
writestack;
End.

if p^.data mod 2 = 0 then p^.data:=0;

type pitem = ^item;
     item = record
     data: integer;
     prev:pitem;
     end;
 
var p,top: pitem;
      k: integer;
 
procedure add(x:integer);
begin
          new(p);p^.data:=x;
          p^.prev:=top;
          top:=p;
                   
end;
 
 
procedure writestack;
begin
          writeln('Content of stack from top: ');
          p:=top;
          while p<>nil do begin
          if p^.data mod 2 = 0 then p^.data:=0;
          write(p^.data,' ');p:=p^.prev;
          end;
          writeln;
end;
 
Begin
top:=nil;
for k:=1 to 10 do add(k);
writestack;
End.