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

[ducky]

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

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

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

[ducky]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
    name=array [1..10] of Char;
    p=^elem;
    elem=record CC:p;
    end;

   var
   slovo:name;
   i:Integer;
   nachalo, tek, ob:p;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  New (nachalo);
  Readln;
  writeln ('первый элемент списка: ');
  for i:=1 to 10 do read (slovo [i]);
  Readln;
  nachalo^.CC:=nil;
  nachalo^.data:=slovo;

  while slovo<> ' ' do
  begin
    tek:=nachalo;
    New(ob);
    Writeln ('следующее слово');
    for i:=1 to 10 do read (slovo[i]);
    Readln;
  end;

end.

 

Добавлено через 18 мин.
только я единственного не пойму, этот список в итоге как список группы/класса будет выглядить или как набор слов в строчку?

Добавлено через 7 мин.
а где я слова беру, они где-то уже должны быть записаны?
ужас

Сообщение отредактировано: ducky - 13.04.2011 1:00