Код: Выделить всё
begin
// Создаём список из 20 элементов
Randomize;
var List := New tList(Random(-10,+10));
var Last := List;
for var N := 2 to 20 do
begin
Last.Next := New tList(Random(-1,+10));
Last.Next.Pred := Last;
Last := Last.Next;
end;
List.Pred := Last;
Last.Next := List;
WriteLn('Создан список');
OutList(List);