01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Динамической память / LQ

program laba4;
uses crt;
type
address=^zap;
zap=record
fio:string [20];
p:address;
end;
var
t,q,f,rab,main:address;
k,n,l:integer;
r,s:string[20];

procedure vvod(var d:address);
begin
writeln('skolko el-tov');
readln(n);
new(main);
main^.fio:='Є®­Ґж бЇЁбЄ ';
main^.p:=nil;
k:=0;
repeat
new(rab);
writeln('famm');
readln(rab^.fio);
rab^.p:=main;
main:=rab;
k:=k+1;
until k=n;
end;

procedure vivod(d:address);
begin
rab:=main;
writeln;
while rab<>nil do
begin
writeln (rab^.fio);
rab:=rab^.p;
end;
end;

procedure udal(w:address; var d:address);
begin
writeln('kakou udal');
readln(r);
rab:=main;
n:=0;
while rab^.p<>nil do
begin
if (n=0) and (rab^.fio=r) then main:=rab^.p;
if rab^.p^.fio=r then
begin
rab^.p:=rab^.p^.p;
end else begin
rab:=rab^.p;
n:=n+1;
end;
end;
end;

procedure vstavka(d:address);
begin
writeln('posle kakogo vstavit');
readln(r);
rab:=main;
n:=0;
while (rab^.fio<>r) do
begin
rab:=rab^.p;
end;
new(q);
writeln('fam');
readln(q^.fio);
q^.p:=rab^.p;
rab^.p:=q;
end;

begin
clrscr;
vvod(main);
vivod(main);
readln;
clrscr;
udal(main,main);
vivod(main);
readln;
clrscr;
vstavka(main);
vivod(main);
readln;
end.