Песни о Паскале

type PRec = ^TRec;       { Тип указатель на запись }
      TRec = record       { Тип запись для хранения связанных строк }
      mStr : string; { хранимая строка }
      mNext : PRec; { указатель на следующую запись }
      end;

Напомню, что со стеком выполняются, по меньшей мере, две операции: помещение в стек PUSH, и извлечение из стека POP. В нашем случае процедура записи в стек будет объявлена так:

procedure Push(const arg : string);

Аргументом процедуры является ссылка на строку, прочитанную из файла.

Теперь об извлечении из стека. Здесь надо получить не только строку, но и сигнал о состоянии стека: пуст он, или в нём ещё валяется что-то. Поэтому операцию извлечения из стека оформим булевой функцией.

function Pop(var arg : string): boolean;

Строка будет возвращаться через параметр arg, – это ссылка на переменную. Но, если функция вернет FALSE, это будет сигналом того, что стек пуст и строка не возвращена.

На этом закончим рассуждения и обратимся к программе «P_56_1».

{ P_56_1 – перестановка строк файла }
type PRec = ^TRec;       { Тип указатель на запись }
      TRec = record       { Тип запись для хранения связанных строк }
      mStr : string; { хранимая строка }
      mNext : PRec; { указатель на следующую запись }
      end;
var Stack : PRec; { Голова (вершина) стека }
      { Процедура размещения строки в стеке }
procedure Push(const arg : string);
var p : PRec;
begin
New(p);       { создаем новую переменную-запись }
p^.mStr:= arg;       { размещаем строку }
{ размещаем в голове стека }
p^.mNext:= Stack; { указатель на предыдущую запись }
Stack:=p;       { текущая запись в голове стека }
end;
      { Процедура извлечения строки из стека }
function Pop(var arg : string): boolean;
var p : PRec;
begin
Pop:= Assigned(Stack); { Если стек не пуст, то TRUE }
if Assigned(Stack) then begin { Если стек не пуст… }
arg:= Stack^.mStr;       { извлекаем данные из головы стека }
p:= Stack;       { временно копируем указатель на голову }