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.