подсчет количества слов списка. Опции

[ducky]

Подскажите, пожалуйста, с чего начать писать эту программу.

type слово= array [1..10] of char;
ТЭ=слово;

Описать функцию, подсчитывающую количество слов списка L, которые начинаются и оканчиваются одной и той же буквой.

[Krjuger]

Ладно попробую я помоч.
Во-первых,

AddElem(l: tElem; w: tWord);
begin
 First: = nil; 
  While n>0 do 
    begin
      New®; 
      r^.Next:=first; 
      r^.Number:=n;
      First:=r; 
      n := n-1 
end;

Насколько я понимаю ты хочеш заполнить список натуральными числами от n до 1,но вопрос, а как его найти....Его надо передавать в процедуру.Тоже самое и с самим списком.Ты передаеш l и w,а работаеш с r и n, согласись непорядок.
Дальше я приведу то,что удалось сделать,но там будеть чуть по другому(собственно имена,которые мне привычней и все),но зато более наглядно станет.

TElem = integer;
Type
 PTStackItem = ^TStackItem;
 TStackItem = record
   Data: TElem;
   Next: PTStackItem;
end;
TStack = PTStackItem;

Procedure InitStack(var Stack:TStack);
 begin
  Stack:=nil;
 end;


Function StackEmpty(Stack:TStack):Boolean;
 begin
  StackEmpty:=(Stack=NIL);
 end;

Procedure StackPush(var Stack:TStack; E:TElem);
 var
  tmp:TStack;
 begin
  new(tmp);
  tmp^.next:=Stack;
  tmp^.data:=E;
  Stack:=tmp;
 end;

Procedure PrintStack(Var Stack: TStack);
  Var p: PTStackItem;
  Begin
    WriteLn( 'Printing Stack...' );
    If StackEmpty(Stack) Then
      Begin
        WriteLn('<Џгбв®©>'); Exit
      End;

    p := Stack;
    While p <> nil Do
      Begin
        Write( p^.data, ' ' );
        p := p^.next;
      End;
    WriteLn
  End;

Для того чтобы работать со списками всгда сначала надо описать их функционал,то есть инициализацию,добавление 1го элемента и ,если в задании необходимо, удаление 1го элемента.Ну я для себя еще выделаю проверку стека на пустоту.А потом на базе этого уже создается сам список вызыванием необходимого числа раз добавления 1го элемента.Насчет того,что Lapp сказал про просмотр,я не совсем понял,что он подразумевал,поэтому сделал печать на экран.
Ну и собственно создание стека будет зависеть от того как ты его вводиш,руками ли из файла ли,поэтому тут я решил не делать ничего пока.тем более,что ты скорее всего уже сама справишся.