Подсчитать количество слов в списке, начинающихся с той же буквы, что и следующее слово

type uk=^zp;
        zp= record
          sod: char;
          adr: uk
          end;
var p,s: uk;
        c: char;
begin
s:=NIL;
while not eoln do
       begin
           New (p);
           read (c);
           p^.sod:=c;
           p^.adr:=s;
           s:=q
        end;

program spisok;
type   ss=^elsp;
     elsp=record
            slovo: string;
              adr: ss;
          end;
var nach, kon, ochel, vspel, novel: ss;
                      isksl, novsl: string;
                                 f: file of string;
BEGIN
  assign (f,'spisok');
  reset (f);
  nach:=NIL;
  kon:=NIL;
  while not eof(f) do
    begin
      if nach=NIL then
                    begin
                      new (ochel);
                      read (f,ochel^.slovo);
                      ochel^.adr:=kon;
                      nach:=ochel;
                    end
                  else
                    begin
                      new (vspel);
                      read (f,vspel^.slovo);
                      ochel^.adr:=vspel;
                      vspel^.adr:=kon;
                      ochel:=vspel;
                    end;
    end;

next = ^zp;
        zp = record
            data     : integer;
            rightPtr : next;
       end;