Задача на списки

[(Нафаня)]

Не запускается программа. Делфи почему-то ругается на ввод sl в основной программе. А условие:
type слово=packed array (1..50) of char;
ТЭ=слово;
Описать функцию, подсчитывающую количество слов списка L, которые начинаются с той же литеры, что и следующее слово.

type
  telem=char;
  slovo= packed array [1..50] of telem; 
  list=^Node;   
  Node=record
         inf:slovo;
         next:list;
       end;         
procedure add(var n:list;x:slovo;num:integer);
var
   p,q:list;
   i:integer;
begin
   new(p);
   p^.inf:=x;
   if n=nil then
      begin
        n:=p;
        p^.next:=nil;
      end
   else if num=1 then
            begin
              p^.next:=n;
              n:=p;
            end
   else
     begin
       i:=0;
       q:= n;
       while (i<>num-2) and (q^.next<>nil) do
          begin
     	      i:= i+1;
	          q:= q^.next;
          end;
      p^.next:=q^.next;
      q^.next:=p;
    end;
end; 
function veiwLkolvo(n:list):integer;  
var
   q:list;
   slotek1,slotek2:slovo;
   i,k:integer;
begin
   q:=n;
   i:=0;
   k:=0; 
   if q=nil then writeln ('Spisok pust ')
   else
     begin
       while q<>nil do
         begin  
	          i:=i+1;
	          if i=1 then slotek2:=q^.inf
              else
                begin
                  slotek1:=slotek2;
                  slotek2:=q^.inf;
                end;  
          	 if i<>1 then
                if slotek1[1]=slotek2[1] then   
                    inc(k);
	        q:=q^.next;
         end;
   end;
   veiwLkolvo:=k; 
end; 
var
  sl:slovo;
  i,n:integer;
  L:list;
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;
end.

[badnum23]

readln(sl);

this. sl - массив, ты забыла индекс указать.

readln(sl[i]);

[(Нафаня)]

а, точно)) спасибо)