Создание списка. Вставка элементов в список

Первое число: -12

Следующее число: 17

Следующее число: -3

Следующее число: 5

Следующее число: 0

Введено чисел: 4

Введенные числа:

5 -3 17 -12

Вставка элементов в список

Новый элемент: -2

После какого: -3

Новый список:

5 -3 -2 17 -12

Новый элемент: 15

После какого: -12

Новый список:

5 -3 -2 17 -12 15

Новый элемент: 9

После какого: 5

Новый список:

5 9 -3 -2 17 -12 15

Новый элемент: 20

После какого: 10

Такого элемента в списке нет

Список:

5 9 -3 -2 17 -12 15

Новый элемент: 0

Список:

5 9 -3 -2 17 -12 15

Программа:

Program Spisok;

Uses CRT;

Type TPoint = ^TElement;

TElement = Record

Inf: Integer;

Next: TPoint;

End;

Var head, q, r : TPoint;

posle: Integer;

flag: 0..1; флаг поиска (0 – элемент не найден)

New(q); формируем первый элемент

Write(‘Первое число: ’);

q^.Next := head^.Next;помещаем его в голову списка

head^.Next := q; в head^.Next адрес головы списка

Repeat

New(q);формируем очередной элемент

Write(‘Очередное число: ’);

ReadLn(q^.Inf);вводим его информационную часть

If (q^.Inf=0) если ввели 0,

Then Break;то выходим из цикла ввода

head^.Inf := head^.Inf + 1;увеличиваем счетчик элементов на 1

q^.Next := head^.Next;вставляем элемент в голову списка

head^.Next := q;в head^.Next адрес головы списка

Until (q^.Inf = 0);

Procedure Vyvod_spisok; процедура вывода списка

q := head^.Next;текущую ссылку – на первый элемент

While (q <> Nil) Doпока не конец списка

Begin

Write(q^.Inf:5); выводим очередной элемент

q := q^.Next; ссылку – на следующий элемент

End;