Процедура удаления. Динамический список

[E1337]

Не как не выходит написать код... Требуется процедура удаления по ФИО, т.е мы пишем ФИО, удаляется фио и вместе с этим для фио - дата, семейное положение, увлечение и любимое время года.

type
  prec = ^trec;
  trec = record
    FIO: string[50];
    born: integer;
    famst: string[50];
    hobby: string[50];
    season: string[50];
    next,Previous: prec;
  end;
 
var
  list, p: prec;
  b: integer;
  s,s1, s2, s3: string;
  vib:Char;
 
procedure addtolist(anum: integer; const s1, s2, s3, s: string);
var
  p: prec;
begin
  new(p);
  p^.born := anum;
  p^.famst := s1;
  p^.hobby := s2;
  p^.season := s3;
  p^.FIO := s;
  p^.next := list;
  list := p;
end;
 
procedure printlist;
var
  p: prec;
begin
  p := list;
  while p <> nil do
  begin
    writeln('Fio: ',p^.FIO, '. Data rojdenya: ',p^.born, '. Semeynoe polojeniye: ', p^.famst, '.  Yvlechenie ', p^.hobby, '. Lubimoe vremya goda: ', p^.season);
    p := p^.next;
  end;
end;
 
begin
  list := nil;
   repeat
    Writeln('Veberite deystvie');
    Writeln('1) Dobavleniye harakteristik');
    Writeln('2) Udaleniye harakteristik');
    Writeln('3) Vivod');
    Writeln('4) Vihod');
    Readln(vib);
    case vib of
     '1':begin
         Writeln('Vveidte FIO');
         readln(s);
         writeln('Vvedite datu rojdeniya');
         readln(b);
         writeln('Vvedite semeynoe polojenie');
         readln(s1);
         writeln('Vvdite hobby');
         readln(s2);
         writeln('Vvedite lubimooe vremya goda');
         readln(s3);
         addtolist(b, s1, s2, s3, s);
         end;
     '2':begin
         Delete(list);
         end;
     '3':begin
         printlist;
         end;
         end;
    until vib = '4';
  readln;
end.

[ViktorR]

И всё же ...
Рекомендую посмотреть книжку Т.А. Павловская, Программирование на ЯВУ (имеется в списке литературы и качается просто ...)
Там точно есть простой и понятный код для работы со списком.
На доработку потребуется немного времени.


Как-то так, ...

[CMY_3]

я бы сделал так:

type
  pNode = ^Node;
  Node = record
    FIO: string[50];
    born: integer;
    famst: string[50];
    hobby: string[50];
    season: string[50];
    next, prev : pNode;
  end;
procedure CreateNode(var aNode:pNode);
begin
   With aNode^ do begin
   Write('Vveidte FIO');
         readln(FIO);
         write('Vvedite datu rojdeniya');
         readln(born);
         write('Vvedite semeynoe polojenie');
         readln(famst);
         write('Vvdite hobby');
         readln(hobby);
         write('Vvedite lubimooe vremya goda');
         readln(season);
         next := nil; prev := nil;
   end;
end;
procedure addtolist(var aBeg,aEnd:pNode;aNode:pNode);
begin
  If aBeg=nil then begin
    aBeg:=aNode;
    aBeg^.next:=nil; aBeg^.prev:=nil;
    aEnd:=aBeg;
  end else begin
    aEnd^.next:=aNode;
    aNode^.prev:=aEnd;
    aEnd:=aEnd^.next;
  end;
end;
procedure printlist(aBeg:pNode);
begin
  while aBeg <> nil do
  begin
    with aBeg^ do
       writeln('Fio: ',FIO, '. Data rojdenya: ',born, '. Semeynoe polojeniye: ',famst, '.  Yvlechenie ',hobby, '. Lubimoe vremya goda: ',season);
    aBeg := aBeg^.next;
  end;
end;
procedure DelNode(var aBeg,aEnd:pNode;aNode:pNode);
begin
   If (aNode=aBeg) and (aNode=aEnd) then begin
     aBeg:=nil; aEnd:=nil;
   end else If aNode=aBeg then begin
     aBeg:=aBeg^.next;
     aBeg^.prev:=nil;
   end else If aNode=aEnd then begin
     aEnd:=aEnd^.prev;
     aEnd^.next:=nil;
   end else begin
     aNode^.prev^.next:=aNode^.next;
     aNode^.next^.prev:=aNode^.prev;
   end;
   Dispose(aNode);
end;

var
  pBeg, pEnd, p : pNode;
  c, vib : char;
begin
   pBeg := nil;  pEnd := nil;
   repeat
    Writeln('Veberite deystvie');
    Writeln('1) Dobavleniye harakteristik');
    Writeln('2) Udaleniye harakteristik');
    Writeln('3) Vivod');
    Writeln('4) Vihod');
    Readln(vib);
    case vib of
     '1':begin
         New(p);
         CreateNode(p);
         addtolist(pBeg,pEnd,p);
         end;
     '2':begin
         p:=pBeg;
         while p<>nil do begin
           writeln(p^.FIO);
           write('Delete Node? Y/N'); readln(c);
           if c='Y' then begin
             DelNode(pBeg,pEnd,p);
             break;
           end;
           p:=p^.next;
         end;
         end;
     '3':begin
         printlist(pBeg);
         end;
         end;
    until vib = '4';
  readln;
end.