нада вивести стек!!!!

[yk92]

Описать процедуру, которая вставляет в список А новий елемент К1 перед первим вхождением елемента К, если К входить в А.

нада вивести стек если я правельно зделал.
вот текстпрограми:

uses crt;
type
 ukazatel=^telem;
 telem=record
 pstr:ukazatel;
 end;
 var
 i:integer;

procedure INPUT(var list:ukazatel; var new_list:ukazatel; k:integer);
var temp1:ukazatel;
    i:integer;
begin
        i:=1;
        temp1:=list;
        if (k=1) then
         begin
                list:=new_list;
                new_list^.pstr:=temp1;
                end
        else
         begin
         while (i<(k-1))and(temp1^.pstr<>nil) do
          begin
                 inc(i);
                 temp1:=temp1^.pstr;
                 end;
                if (temp1^.pstr=nil) then
                 begin
                        write('You want to insert element befor ', k, ' element of current list. ') ;
                        write('It is impossible. ' );
                        writeln('List is too short') ;
                        writeln('Current list was not changed!') ;
                        exit;
                        end;
         new_list^.pstr:=temp1^.pstr;
         temp1^.pstr:=new_list;
                  end;
end;


begin clrscr;
???????????


readkey
end.