t_16_19_a_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
описать функцию, подсчитывающую количество слов в списке L, которые начинаются и оканчиваются одним и тем же символом}
type word=packed array[1..10] of char;
     list=^chain;
     chain=record elem:word; next:list end;
function count(L:list):integer;
     var k:integer;
     begin
         k:=0;
         while l^.next<>nil do
           begin
             for i:=10 downto 2 do
                 begin
                    if l^.elem[i]<>' ' then
                    if l^.elem[1]=l^.elem[i] then
                    k:=k+1;
                 end;
             l:=l^.next;
           end;
         count:=k;
     end;