Печатает текст из первых букв всех слов списка

program hhh;
 type t=^tabl ;
 tabl=record
       l:t;
       d:string;
       end;
 var
       f,w,k:t;
       o:string;
       n,i,d:integer;
 
    begin
    o:=' ';
      write('Vedite Kol-vo  ');
      readln(n);
      f:=nil;
 
              for i:=1 to n do
              begin
                 new(w);
                 write('Vedite Bykvy');
                 readln(w^.d);
                 w^.l:=f;
                 f:=w;
 
               end;
               w:=f;
              
 
               w:=f;
               writeln;
               for i:=1 to n do
               begin
               o:=concat(w^.d, o);
               w:=w^.l;
               end;
 
               for i:=1 to n do
                writeln(o[i]);
 
                w:=f;
                for i:=1 to n do
                begin
                 f:=w^.l;
                 dispose(w);
                 w:=f;
                 end;
                 f:=nil;
                 w:=nil;
 
     end.

program hhh;
 type t=^tabl ;
 tabl=record
       l:t;
       d:string;
       end;
 var
  f,w:t;
  o:string;
  n,i:integer;
 begin
   o:=' ';
   write('Количество слов: '); readln(n);
   f:=nil;
 
   for i:=1 to n do
   begin
     new(w);
     write('Введите слово: '); readln(w^.d);
     w^.l:=f;
     f:=w;
   end;
   
   w:=f;
   writeln;
   while w <> nil do
   begin
     o:=concat(w^.d[1], o);
     w:=w^.l;
   end;
   writeln(o);
               
   w:=f;
   for i:=1 to n do
   begin
     f:=w^.l;
     dispose(w);
     w:=f;
   end;
   f:=nil;
   w:=nil;
end.