align="justify"> Length (p ^. Tovar) = 17 then write (p ^. Tovar, ''); Length (p ^. Tovar) = 12 then write (p ^. Tovar, ''); Length (p ^. Tovar) = 5 then write (p ^. Tovar, ''); Length (p ^. Tovar) = 7 then write (p ^. Tovar, ''); Length (p ^. Tovar) = 13 then write (p ^. Tovar, '');
Length (p ^. Mesto) = 7 then write (p ^. Mesto, ''); Length (p ^. Mesto) = 6 then write (p ^. Mesto, ''); Length (p ^. Mesto) = 8 then write (p ^. Mesto, ''); Length (p ^. Mesto) = 3 then write (p ^. Mesto, '');
Length (IntToStr (p ^. Cena)) = 4 then write (p ^. Cena, '') write (p ^. Cena, '');
(DateToStr (p ^. Date_P));
: = p ^. prev; else writeln ('Стек порожній');;
Лістинг 4.Вивод елемента стекаVivod (b: Integer; p: TPElem); i, j: Integer; W = 'print' then
Writeln ('Яку запис вивести?');
Readln (j);;: = top; (j> 0) and (j <= b) and (p <> nil) then: = 1; (p <> nil) or (i
Length (p ^. Tovar) = 17 then write (p ^. Tovar, ''); Length (p ^. Tovar) = 12 then write (p ^. Tovar, ''); Length (p ^. Tovar) = 5 then write (p ^. Tovar, ''); Length (p ^. Tovar) = 7 then write (p ^. Tovar, ''); Length (p ^. Tovar) = 13 then write (p ^. Tovar, '');
Length (p ^. Mesto) = 7 then write (p ^. Mesto, ''); Length (p ^. Mesto) = 6 then write (p ^. Mesto, ''); Length (p ^. Mesto) = 8 then write (p ^. Mesto, ''); Length (p ^. Mesto) = 3 then write (p ^. Mesto, '');
Length (IntToStr (p ^. Cena)) = 4 then write (p ^. Cena, '') write (p ^. Cena, '');
(DateToStr (p ^. Date_P));;; else Writeln ('немає такого запису');;
Лістинг 5.Удаленіе стека Del1 (p: TPElem);: = top; p <> nil thenp <> nil do; else writeln ('Стек порожній');;
Лістинг 6. Редагування елемента стека
Edit (b: Integer; p: TPElem); g: string; j: Integer; i: Integer; ('Який елемент редагувати??'); (j);: = top; ( j> 0) and (j <= b) and (p <> nil) then
Writeln ('Вихідна запис:');
Vivod (b);: = top;: = 1; (p <> nil) and (i
begin
writeln ('введіть нове найменування товару:');
Readln (p ^. Tovar);
writeln ('Введіть нове місце покупки:');
