Динамический массив

[_ares_]

Вообщем есть небольшая проблемка. Не работает процедура уделения записи по заданному полю(((

type
   spisok = record
       nomer: word;
       fio: string[31];
       nam: string[3];
       posob: real;
       end;
   type_ukaz=^type_dinSpis;
   type_dinSpis=record
               info :spisok;
               ukaz :type_ukaz;
      end;
var
i,j,n:Integer;
f_input : text;
    beg_spis, st,sp:type_ukaz;
procedure udal;
var
sk,sn:type_ukaz;
begin
  sk:=beg_spis;
  sn:=beg_spis;
  st:=beg_spis;
  if (st^.ukaz=nil) then
    begin
    beg_spis:=beg_spis^.ukaz;
    dispose(st);
    end
  else
  begin
   while st<> nil do
         begin
         with st^.info do Begin
              if nam<='p' then
                 begin
               {думаю что здесь не то но что?:confused: }
                 sk^.ukaz:=st^.ukaz;
                 dispose(st);
                 st:=sk;

                 end
                 else
                   begin
                   sn:=st;
                   st:=st^.ukaz;
                   end;
                 end;
         end;
   end;
end;
{для общего сведения}
procedure vivod;
   begin
        st:= beg_spis;
        while st <> nil do
              begin
              with st^.info do
                   writeln ('*',nomer,'*',fio,'*',nam,'*', posob:0:2,'*');
              st:=st^.ukaz;
              end;

[n@sok]

{думаю что здесь не то но что? }
sk^.ukaz:=st^.ukaz;

А чему здесь равен указатель sk? Судя по алгоритму он должен указывать на предыдущий отностительно st элемент, но почему-то в программе он нигде не изменяется.

procedure udal;
var
sn:type_ukaz;
begin
sk:=beg_spis;
sn:=NIL;
while st<> nil do
begin
with st^.info do Begin
if nam<='p' then
begin
if sn<> NIL then
sn^.ukaz:=st^.ukaz
else
beg_spis:=st^.ukaz;
dispose(st);
st:=sn;
end;
sn:=st;
st:=st^.ukaz;
end;
end;
end;

[_ares_]

Все по суте должно быть правильно но эта процедура должна удалять записи начинающиеся на "P" а она наоборот их выводит.

procedure udal_new;
  var
sn:type_ukaz;
begin
{sk:=beg_spis;}
(*
st:= beg_spis;
        while st <> nil do
              begin
              with st^.info do
                   writeln ('*',nomer,'*',fio,'*',nam,'*', posob:0:2,'*');
              st:=st^.ukaz;
*)
sn:=NIL;
while st<> nil do
begin
with st^.info do Begin
if nam<='p' then
begin
if sn<> NIL then
sn^.ukaz:=st^.ukaz
else begin
beg_spis:=st^.ukaz;
dispose(st);
st:=sn;
end;    end;
sn:=st;
st:=st^.ukaz;
end;
end;
 st:= beg_spis;
        while st <> nil do
              begin
              with st^.info do
                   writeln ('*',nomer,'*',fio,'*',nam,'*', posob:0:2,'*');
              st:=st^.ukaz;  end;
end;

// Для оформления кода используй кнопку # code

[n@sok]

Можно попробовать применить условие
if nam[1] = 'p' then
вместо
if nam <= 'p' then
и незабыть расскоментировать строчку
st := beg_spis;
в начале процедуры