Использовать список при следующем его описании: Type AdrCel=^Element; Element=recordInfo: integer; Next:…

type adrcel=^Element; Element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer; procedure del2 (var start: adrcel); varp: adrcel; beginp: =start^.next; if p<>nil then start^.next: =p^.nextend; begin start: =nil; last: =nil; new_el: =nil; repeat new (new_el); write ('info='); readln (new_el^.info); new_el^.next: =nil; if start=nil thenstart: =new_el; else beginlast: =start; while last^.next<>nil do last: =last^.next; last^.next: =new_el; end; write ('Продолжить? (1-Да/0-Нет): '); readln (i); until i=0; writeln ('Удалим 2-й элемент'); del2 (start); new_el: =start; while new_el<>nil do begin write (new_el^.info: 4); new_el: =new_el^.next; end; readln; end.