program lol10;
type
ccilka=^element;
element=record
k:string;
z:ccilka;
end;
var
nach,tek,pred:ccilka;
s,pc:string;
i,n,b:integer;
begin
writeln('BBeguTe KOJIBO');
readln(n);
writeln('BB CTPOKu');
readln(s);
pc:=s;
new(nach);
nach^.k:=s;
nach^.z:=nil;
pred:=nach;
for i:=1 to n do
begin
readln(s);
new(tek);
pred^.z:=tek;
tek^.k:=s;
tek^.z:=nil;
pred:=tek;
end;
writeln('vivod spiska');
tek:=nach;
while tek <> nil do
begin
writeln(tek^.k);
tek:=tek^.z;
end;

До этого момента всё путём, должно быть, я проверял...

А дальше наброски....

tek:=nach;
while tek^.b<>nil
tek:=tek^.b;
new(pred);
tek^.b:=pred;
pred^.b:=nil;
pred^.s[1]   :='-';

new(CnATb);
CnATb^.w:= 'Xo4y CnATb!';
CnATb^.b:=nil;
tek^.b=CnATb;

writeln ('BbIB CnuCKA');
tek:=nach;
while tek <> nil do
begin
writeln(tek^.w);
tek:=tek^.b;
end;
end.