01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / LENA / LENA3

program lena3;
type t=^rec;
rec=record
s:string;
a:t;
end;
var x:t;

PROCEDURE zap(var x:t);
var scan:string;
buf:pointer;
r:integer;
begin buf:=nil;
repeat
writeln('ўўҐ¤ЁвҐ ¤ ­­лҐ:');
readln(scan);
new(x);
x^.s:=scan;
x^.a:=buf;
buf:=x;
write('Їа®¤®«¦Ёвм ўў®¤?1\0 ');
readln(r);
writeln
until r=0
end;

procedure readst(var x:t);
var buf:pointer;
begin
repeat
writeln(x^.s);
buf:=x^.a;
dispose(x);
x:=buf
until buf=nil;
end;
begin
zap(x);
readst(x);
end.