Формирование с помощью указателей однонаправленного списка по принципу стека, поиск элемента

Program Primer1;

Uses Crt;

Type

Spisok = ^ Zveno;

Zveno = Record

Elem : Integer;

Next : Spisok;

End;

Var

L : Spisok;

E : Integer;

Procedure Form(Var L1 : Spisok);

Var

Sym : Char;

X : Spisok;

Begin

X:=Nil;

Repeat

New(L1);

Writeln(‘Введите элемент звена’);

Readln(L1^.Elem);

L1^.Next:=X;

X:=L1;

Write(‘Будете вводить еще (Y/N)’);

Readln(Sym);

Until Upcase(Sym)=’N’;

End;

Procedure Search(L1: Spisok; E1: Integer);

Var

Flag : Boolean;

Begin

Flag:=False;

While (L1 <> Nil) and (not Flag)

Do If L1^.Elem = E

Then Flag:=True;

Else L1:=L1^.Next;

If Flag

Then Writeln(‘Е=’,E,’ найден’);

Else Writeln(‘Е=’,E,’ не найден’);

End;

Procedure Wywod(L1 : Spisok);

Var

P : Spisok;

Begin

P:=L1;

While P <> Nil

Do Begin

Write(P^.Elem,’ ‘);

P:=P^.Next;

End;

Writeln;

End;

Begin

Clrscr;

Form(L);

Writeln(‘Вывод исходного списка’);

Wywod(L);

Writeln(‘Е – искомый элемент’);

Writeln(‘Введите Е>’);

Readln(E);

Search(L,E);

Readkey;

End.

{тип – указатель на тип-запись}

{тип - запись}

{информационное поле записи}

{указатель на следующее звено списка}

{указатель}

{искомый элемент списка}

{процедура формирования списка}

{по принципу стека}

{ответ о продолжении формирования списка}

{рабочая переменная}

{см. пояснения к программе ниже}

{заем памяти из кучи}

{конец процедуры Form}

{процедура поиска элемента Е}

{флаг того, что Е был найден}

{элемент Е еще не найден}

{пока не конец списка и не найден Е}

{если текущий элемент равен Е}

{то установка флага}

{иначе переход к следующему элементу}

{если Е был найден}

{то вывод «Элемент Е найден»}

{иначе вывод «Элемент Е не найден»}

{конец процедуры Search}

{процедура вывода списка на экран}

{конец процедуры вывода списка}

{начало основной программы}

{очистка экрана}

{формирование списка (стек)}

{вывод исходного списка на экран}

{ввод элемента Е для поиска}

{поиск элемента Е }

{ожидание нажатия любой клавиши}

{конец программы}