Основная программа по работе с объектами-списками

Program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils,

spisok in ‘spisok.pas’;

var

s:TObjList;

x,i,n:integer;

begin

s:=TObjList.Create;

write(‘n=’);readln(n);

for i:=1 to n do

begin

write(‘x=’);readln(x);

s.AddBottom(x)

end; writeln;

s.print;{вывод списка}

writeln;

s.DelTop; {удалили первый элемент списка}

s.print; writeln;

s.DelBottom; {удалили последний элемент списка}

s.print; s.Free;

readln

end.