Создать стек со случайными целыми числами. Удалить все нулевые элементы

type TList=^List;
    List=record
    x:Integer;
    next:TList;
    end;
 
procedure add(var st:TList;value:Integer);
var tmp:TList;
begin
new(tmp);
tmp^.x:=value;
tmp^.next:=st;
st:=tmp;
end;
 
procedure create(var st:TList;n:Integer);
var i:Integer;
begin
for i:=1 to n do add(st,Random(2));
end;
 
procedure print(st:TList);
begin
while st<>nil do
 begin
  Write(st^.x,' ');
  st:=st^.next;
 end;
Writeln;
end;
 
procedure free(var st:TList);
var tmp:TList;
begin
 
while st<>nil do
 begin
  tmp:=st;
  st:=st^.next;
  dispose(tmp);
 end;
 
end;
 
procedure delete(var st:TList);
var lst,next:TList;
begin
 
lst:=st;
while lst<>nil do
 begin
  next:=lst^.next;
  if next=nil then Break;
  if next^.x=0 then
  begin
    lst^.next:=next^.next;
    dispose(next);
  end else lst:=lst^.next;
 end;
lst:=st;
if lst^.x=0 then
begin
st:=st^.next;
dispose(lst);
end;
 
end;
 
 
var st:TList;
n:Integer;
begin
st:=nil;
Randomize;
Write('Количество элементов стека:');
Readln(n);
create(st,n);
Writeln('Исходный стек:');
print(st);
delete(st);
Writeln('Полученный стек:');
print(st);
free(st);
Readln;
end.

{$mode objfpc}
uses crt;
type
  pstack = ^tstack;
  tstack =
  record
    info : integer;
    next : pstack;
  end;
 
procedure push(var s : pstack; value : integer);
var p : pstack;
begin
  new(p);
  p^.next := s;
  p^.info := value;
  s := p;
end;
 
function pop(var s : pstack) : integer;
var p : pstack;
begin
  result := s^.info;
  p := s;
  s := s^.next;
  dispose(p);
end;
 
procedure print(s : pstack);
begin
  while s <> nil do
  begin
    write(s^.info:4);
    s := s^.next;
  end;
  writeln;
end;
 
var
  s, t : pstack;
  i, n, value : integer;
 
begin
  randomize;
  s := nil; t := nil;
  write('n = '); readln(n);
  for i := 1 to n do push(s, random(10));
 
  print(s);
 
  while s <> nil do
  begin
    value := pop(s);
    if value <> 0 then push(t, value);
  end;
 
  while t <> nil do
    push(s, pop(t));
 
  print(s);
  readln;
  // не забываем удалить содержимое s
end.