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

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;
begin
 writeln('skolko el-tov');
 readln(n);
 new(main);
 main^.p:=nil;
 k:=0;
repeat
 new(rab);
 rab^.p:=nil;
 writeln('famm');
 readln(rab^.fio);
 rab^.p:=main;
 main:=rab;
 k:=k+1;
until k=n;
end;

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

procedure udal;
begin
writeln('kakou udal');
readln(r);
rab:=main;
n:=0;
while (rab^.fio<>r) do
begin
rab:=rab^.p;
n:=n+1;
end;
f:=rab^.p;
rab:=main;
k:=1;
if n=0 then begin main:=rab^.p; end  else
while k<>n do
begin
rab:=rab^.p;
k:=k+1;
end;
rab^.p:=f;
end;

procedure vstavka;
begin
writeln('posle kakogo vstavit');
readln(r);
rab:=main;
n:=0;
while (rab^.fio<>r)  do
begin
rab:=rab^.p;
n:=n+1;
end;
f:=rab^.p;
new(q);
writeln('fam');
readln(q^.fio);
q^.p:=f;
rab:=main;
for k:=1 to n do
begin
rab:=rab^.p;
end;
rab^.p:=q;
end;
begin
clrscr;
vvod;
vivod;
readln;
clrscr;
udal;
vivod;
{readln;
clrscr;}
vstavka;
vivod;
readln;
end.