Список - подсчитать количество слов списка,которые начинаются и заканчиваются одной и той же буквой

Program poiskslov;
var s,s1:string;
    i,n:integer;
BEGIN
    Writeln ('Введите строку');
    Readln(s);
    s1:='';
    i:=1;
    n:=0;
    While i<>Length(s) do
      begin
        if s[i]<>' ' then
          s1:=s1+s[i]
        else
          begin
            if s1[1]=s1[Length(s1)] then
              n:=n+1;
            s1:='';
          end;
        i:=i+1;
      end;
      Writeln(n);
END.

program spisok;
type
   link = ^kom;
   kom  = record    { элемент списка }
         ini  : string[20];
         next : link;   { указатель на следующий элемент списка }
      end;
var
   pn        : link;    { первый элемент }
   j, m,z : integer;
   arg:string;
 {-----------------------}  
{ процедура добавления элемента в список }
procedure add(var n : link; x:string; 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; { add }
{-----------------}
{ процедура вывода спискa на экран }
procedure veiw(n : link);  
var
   ind : link;
   i   : integer;
begin
   ind:=n;
   i:=0;
   if ind=nil then writeln ('Лист пуст')
   else begin
      writeln; writeln('Список');
      while ind<>nil do begin
     i:=i+1;
     writeln(i,')  ',ind^.ini);
     ind:=ind^.next;
      end;
   end;
end; { veiw }
{-----------------}
{процедура подсчета слов которые начинаются и заканчиваются одной и той же буквой}
procedure poisk(n : link);  
var
   ind : link;
   i : integer;
   s1:string;
begin
   ind:=n;
   i:=0;
   z:=0;
   if ind=nil then writeln ('Лист пуст')
   else begin
      while ind<>nil do begin
     i:=i+1;
     s1:=ind^.ini;
   if s1[1]=s1[Length(s1)] then
              z:=z+1;
     ind:=ind^.next;
      end;
   end;
end; { poisk }
{---------------------}
{ главная программа }
begin       
   pn:=nil;
   m:=1;
   while m<>0 do begin
      writeln; writeln;
      writeln('"1" Добавить новый элемент в список');
      writeln('"2" Просмотр списка');
      writeln('"3" подсчета слов которые начинаются и заканчиваются одной и той же буквой');
      writeln('"0" Выход из программы');
      writeln;
      readln(m);
      case m of
    1 : begin
        write('Введите элемент : ');
        readln(arg);
        write('Позиция : ');
        readln(j);
        add(pn,arg,j);
         end;
    2 : begin
           veiw(pn);
        end;
    3 : begin
        poisk(pn);
        Writeln('В списке слов, которые начинаются и заканчиваются одной и той же буквой   ',z);
        end;
      end; { case }
   end;
end.