Удалить элемент стека, равный 10, или вывести, что такого элемента нет

Program xa;
uses
  crt;
type
 stek=^vs;
 vs=record
  data:integer;
  next:stek;
 end;
 
Procedure printf(a:stek);
begin
  writeln;
  while a<>nil do
  begin
    Write(a^.data, ' ');
    a:=a^.next;
  end;
end;
 
Procedure delstek(a:stek);
var
 b:stek;
begin
  if a=nil then
    writeln('Ctek nyct')
  else
    while a<>nil do
    begin
      b:=a^.next;
      dispose(a);
      a:=b
    end
end;
 
Procedure delmin(var a:stek);
var
 b,c:stek;
 
begin
  
  b:=a;
  c:=b;
  while b<>nil do
  begin
    if b^.data=10 then
    begin
      c:=b;
      
    end;
    b:=b^.next
  end;
  if (c=a) and (a^.next=nil) then
  begin
    delstek(a);
    a:=nil
  end
  else
  begin
    if c=a then
    begin
      a:=a^.next;
      dispose(c)
    end
    else
    begin
      b:=a;
      while b^.next <>c do
        b:=b^.next;
      b^.next:=c^.next;
      dispose(c);
    end;
  end;
end;
 
var
 a,b:stek;
 i,n:integer;
begin
  repeat
    clrscr;
    Write('VVedute kolu4ectvo elementov ');
    readln(n);
  until n>0;
  a:=nil;
  new(a);
  a^.next:=nil;
  i:=1;
  clrscr;
  Write(i, ' -bli element cteka ');
  readln(a^.data);
  for i:=2 to n do
  begin
    Write(i, ' -bli element cteka ');
    b:=nil;
    new(b);
    readln(b^.data);
    b^.next:=a;
    a:=b
  end;
  printf(a);
  delmin(a);
  printf(a);
  delstek(a);
  readln;
end.