Доклад: Основні принципи модульного програмування та стеки

write(curr^.number,' '); {вивiдзначенняелемента }

curr:=curr^.next; {поточнимстаєпокажчикнанаступнийелемент} until curr=nil;

{вивiд значень, поки є елементи в списку}

end;

writeln;

end;

begin {**** головнапрограма ******}

first:=nil; {початок списку- список порожнiй }

repeat

clrscr; outlist; {очищення екрана, виведення списку}

writeln('I- input D- delete Q- quit');

write('input command:');

readln(ch);

ch:=upcase(ch);

case ch of

'I': Insert;

'D': delete;

end;

until ch='Q';

end.