динам данные

 program g;
type
slovo= packed array[1..50] of char;
 
           link = ^kom;
           kom  = record
            ini  : slovo;
            next : link;
             end;
 
procedure add(var n : link; x:slovo; num:integer);
var
   neo, ind : link;
   i        : integer;
begin
   new(neo);
   neo^.ini:=x;
   if n=nil then begin
      n:= neo;
      neo^.next:=nil;
   end
   else if num=1 then begin
      neo^.next:=n;
      n:= neo;
   end
   else begin
      i:=0;
      ind:= n;
      while (i<>num-2) and (ind^.next<>nil) do begin
     i:= i+1;
     ind:= ind^.next;
      end;
      neo^.next:=ind^.next;
      ind^.next:= neo;
   end;
end;
function veiwLkolvo(n : link):integer;
var
   ind : link;      slotek1,slotek2:slovo;
   i,kolvo : integer;
begin
   ind:=n;
   i:=0;
    kolvo:=0;
   if ind=nil then writeln ('List is empty')
   else begin
      while ind<>nil do begin
     i:=i+1;
     if i=1 then slotek2:=ind^.ini else
   begin slotek1:=slotek2; slotek2:=ind^.ini; end;
     if i<>1 then
   if slotek1[1]=slotek2[1] then
    inc(kolvo);
     ind:=ind^.next;
      end;
   end;
   veiwLkolvo:=kolvo;
end;
 
var sl:slovo; i,n:integer;
    L:link;
 
begin
write('Vvedite kol-vo slov v spiske: '); readln(n);
writeln('Vvedite sam SPISOK L: ');
for i:=1 to n do begin
write(i,' slovo= '); readln(sl); add(L,sl,i); end;
writeln('OTVET= ',veiwLkolvo(L));
readln; readln;
end.